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HOY POR HOY 


Cebit ’88, otro año más 
mostrándonos las novedades más 
importantes del Mercado 
Informático a nivel mundial. 
En esta ocasión la feria nos ha 
vuelto a dejar atónitos con los 


avances tecnológicos, que las 
principales casas informáticas 
presentaban al público, en 
una lucha constante por 
hacerce con una parte del 
mercado. 



ECOS DE LA 
FERIA DE HANNOVER 



Amstrad rompe definitivamente con Schneider 


L a feria estaba en el recinto Fe¬ 
rial de Hannover, el cual cons¬ 
ta de un total de 23 pabellones, 
con unos excelentes medios de trans¬ 
porte. Y un detalle que me llamó la 
atención: el gran aparcamiento de 
que disponía, en perfecto orden, y 
una entrada y salida con preferencia 
hacia los demás vehículos que circu¬ 
laran por la zona. 

Para el Cebit estaban tan sólo 
abiertos 14 pabellones, desde el uno 
al siete, el 13 y desde el 15 al 19, más 
el 23. Para situarnos en ellos vamos 
a comentarlos uno a uno. 

Pabellón 1: En este pabellón tenía¬ 
mos la zona de Ofimática e Informá¬ 
tica, es el pabellón de gala como pue¬ 
de ser el Pabellón de Cristal en SI¬ 
MO, pero unas cuatro o cinco veces 
mayor. Aquí podíamos encontrar 
cualquier innovación de fotocopia- 
doras, sistema de ficheros con bús¬ 
queda automática, tanto para ficha 
de cartón como para una cinta de 
Backup de un sistema, un sistema de 


gestión y automatización de cartas. 
En definitiva, se podía encontrar 
cualquiera de las grande firmas co¬ 
mo IBM, ICL, MITA, NIXDORF, 
etc., con unos stands grandiosos y 
unas decoraciones asombrosas, y to¬ 
do el material de oficina informáti¬ 
co necesario. 

Pabellón 2: Dedicado exclusiva¬ 
mente a sistemas bancarios y seguri¬ 
dad de los mismos. Se mostraban las 
soluciones, además de la protección 
de los centros de cálculo para evitar 
cualquier penetración a los mismos 
desde fuera o dentro de los mismos. 
Este año tenían como principal inno¬ 
vación el «Banco Electrónico». 

Pabellón 3; Si quería buscar un 
software relacionado con sus necesi¬ 
dades o su negocio éste era su pabe¬ 
llón, más de 400 casas de software 
mostraban sus productos y hacían 
demostraciones de los mismos en 
pantallas de vídeo gigantes, en la cual 
iban ensenando el programa paso a 
paso y el público interesado podía ir 


viendo en ésta los pasos a seguir, 
mientras por unos altavoces se iba 
explicando tanto en alemán como en 
inglés. Al margen de esto se podía re¬ 
coger la información de ellos en car¬ 
petas que desgraciadamente no siem¬ 
pre venían en otro lenguaje que no 
fuera el alemán. 

Pabellón 4: Este pabellón consta¬ 
ba de tres plantas con diferentes pro¬ 
ductos. La tercera planta más peque¬ 
ña en relación con las otras dos, te¬ 
níamos el «1F Artware», que era una 
especie de muestra de la Informáti¬ 
ca y Ofimática con estilo moderno y 
productos bien presentados. En la se¬ 
gunda se encontraban las primeras 
representaciones de los países asiáti¬ 
cos. Podíamos empezar a ver los 
nuevos clónicos del sistema dos de 
IBM, tarjetas nuevas, así como una 
pequeña representación de impreso¬ 
ras. En la primera planta, teníamos 
el comienzo de la muestra de acce¬ 
sorios, periféricos y terminales que 
continuarían en el pabellón cinco. 
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Imagen caleidoscópica del nuevo 
Amstrad PPC, omnipresente en los 
pasillos del Cebit. 


Aquí podíamos encontrar la tarjeta 
de vídeo que quisiéramos, cualquier 
salida de impresora o interface espe¬ 
cífico que necesitáramos. Teníamos 
también una gran gama de termina¬ 
les «Tontos» e «Inteligentes» de 
marca conocida o terminal clónico. 

Pabellón 5: Estaba dividido en dos 
partes. En la primera terminábamos 
de contemplar los nuevos avances 
para informatización de oficinas y 
empresas. La segunda parte estaba 
dedicada a solucionar los problemas 
de pequeñas empresas, profesiona¬ 
les, liberales, etc., en los cuales la mi- 
croinformática tenía una gran rele¬ 
vancia. 

Pabellones 6, 7 y 15: Tanto en es¬ 
tos como en la segunda parte del cin¬ 
co, empezábamos a ver una gran ga¬ 
ma de ordenadores, monitores, im¬ 
presoras, discos duros, etc.. En estos 



Sistemas de almacenamiento masivo 
para los nuevos PS2 de IBM, a la 
orden del día. 



Un aspecto del stand de Amstrad. Al parecer, desper- 
tó tanto interés entre el público como de costumbre. 


Las nuevas estrellas Amstrad en el campo de las impresoras 
profesionales. Pronto en España. 


pabellones teníamos las representa¬ 
ciones de países como Taiwán, Es¬ 
tados Unidos, Bélgica, Australia y 
otra gran cantidad de países, al mar¬ 
gen de estar expuestos marcas de pe¬ 
riféricos e impresoras de gran nom¬ 
bre. Podríamos destacar los microor¬ 
denadores compatibles XT/AT con 
una frecuencia de reloj variable por 
modelo desde los 4,77 hasta los 25 ó 
30 MHz. También podríamos hablar 
de las tarjetas multífunción, cuyas 
características principales son el lle¬ 
var al mismo tiempo varios RS-232 
C, varias salidas Centronics, reloj y 
calendario en tiempo real, interface 
con salida para joystick PC, salida 
para ratón compatible Micro Soft u 
otro sistema, salida de video mono¬ 
cromo tipo Hércules, salida vídeo 
RGB, salida vídeo compuesto, CGA, 
etc... También habían otras que ade¬ 
más tenían el controlador de disco y 
modem incorporadas. Por último, 
teníamos todo tipo de redes para mi¬ 
croordenadores: po cable, por on¬ 
das, vía satélite, por fibra óptica con 
un sinfín de características extraor¬ 
dinarias para su uso en la pequeña 
y media empresa. 



El Cebit destacó por la proliferación de 
discos duros y la desaparición casi 
total de unidades Floppy de 5 1/4. 


Pabellones 13, 16 y 17: Este era el 
pabellón de la Telecomunicación, In¬ 
vestigación y Desarrollo de la comu¬ 
nicación. Exponían sus productos 
más de 200 expositores de todo el 
mundo. Se mostraban los diferentes 
sistemas de redes infomáticas, públi¬ 
cas y privadas, además de la trans¬ 
misión de datos, textos e imágenes en 
un campo local o a gran distancia. 
También se mostraban equipos de 
comunicación por vía satélite con un 
gran despliegue de antenas parabó¬ 
licas de múltiples formas. 

Pabellones 18 y 23: Estos eran los 
pabellones del Diseño por Ordena¬ 
dor. Estaban representadas todas las 
modalidades de diseño por ordena¬ 
dor. Después de todo esto encontrá¬ 
bamos el dibujo como tal, con unas 
demos que podrían ser perfectamen¬ 
te anuncios animados. El problema 
estaba que para ver una tenías que 
esperar un buen rato hasta que se 
despejara el gran público que perma¬ 
necía contemplando los mismos. 

Pabellón 19: También denomina¬ 
do Computer Camp , en el cual se ex¬ 
ponían las técnicas informáticas apli¬ 
cadas a la enseñanza, el alumnado, 
programas de juegos para diferentes 
ordenadores. Éste, sin duda, era el 
pabellón favorito para todos los cha¬ 
vales que asistieron a la feria, ya que 
podían jugar con los nuevos progra¬ 
mas a la vez que se llevaban una gran 
cantidad de pegatinas, posters, y de¬ 
más regalos. 

Amstrad en el Cebit 

Como era lógico y de esperar, 
Amstrad también estaba en el Cebit. 
Estaba situado en el pabellón seis, 
con un stand de dos plantas con los 
nuevos colores de Amstrad. Tenia 
forma rectangular y se encontraba en 
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la intersección de dos pasillos prin¬ 
cipales, lo que le daba una buena si¬ 
tuación dentro del pabellón. En la in¬ 
tersección del mismo había una vi¬ 
trina anunciadora que nos presenta¬ 
ba el nuevo portátil de Amstrad de 
forma llamativa. La planta inferior 
estaba dividida en tres partes, una 
dedicada a las impresoras de Ams¬ 
trad, en la que presentaban nuevos 
modelos. La parte central estaba de¬ 
dicada a los ordenadores PC 1512 y 
PC 1640, en los cuales había una re¬ 
presentación de las casas más impor¬ 
tantes de software, que mostraban 
sus programas a la vez que manifes¬ 
taban la compatibilidad de los mis¬ 
mos con los ordenadores. Por últi¬ 
mo, la tercera zona estaba reserva¬ 
da a los archifamosos CPC y PCW, 
que como siempre atraen ai peque¬ 
ño público que empiezan sus prime¬ 
ros pinitos informáticos. 

Esta vez, como viene siendo cos¬ 
tumbre Amstrad presentó las nuevas 
impresoras de 24 agujas: en carro 
corto (80 columnas) la LQ 3500 y en 
carro ancho (136 columnas) la LQ 
5000. Vienen ambas equipadas con 
un Buffer de siete Kbytes de memo¬ 
ria, interface paralelo Centronics y, 
dependiendo del modelo, puede uti¬ 
lizar papel de 4” a 10” o bien de 4” 
a 15”, imprimiendo original más una 
copia en ambos modelos. También 
hay que destacar que Amstrad pre¬ 
sentó como novedad en Alemania su 
nuevo portátil que viene equipado 
con un microprocesador 8086 a 8 
MHz, con 512 Kbytes de memoria 
RAM, disco de 3,5” con 720 Kbytes 
de capacidad, posibilidad de conec¬ 
tarle una segunda unidad de disco de 
3,5” opcional, lleva incorporados 
puertos serie y paralelo , teclado con 
102 teclas tipo Expandido AT, pan¬ 
talla de LCD (cristal líquido de cuar¬ 
zo) con 640x200 puntos en modo 
gráfico C'GA, y previsto con zócalo 
para eoproccsador matemático 8087. 

Stands de países 

Los stands nacionales, eran gran¬ 
des Stands o varios unidos en los 
cuales se encontraban las principales 
firmas del país, que mostraban e in¬ 
formaban a los visitantes de sus 
avances. Podríamos destacar que la 
nación que estaba representada más 
veces a lo largo de todos los pabello¬ 


Schneider ha 
roto con 
Amstrad. 

Aun asi, su 
stand estaba 
la mar de 
concurrido. 


Los equipos informatizados de Fax y Telex 
se están convirtiendo rápidamente en un es¬ 
tándar PC. 


nes era Taiwán, que tendría más de 
seis representaciones, cada una dedi¬ 
cada a los productos que se exponían 
en cada pabellón. También se podía 
decir que eran los más numerosos. 
Normalmente cada stand nacional 
tenía separados por unas mamparas 
a cada casa que allí se representaba, 
sin embargo en los de Taiwán éstas 
no existían, y en un par de metros 
podían estar dos o tres casas diferen¬ 
tes, todas ellas con equipos práctica¬ 
mente iguales, pero que a la hora de 
la verdad cada una aportaba una di¬ 
ferencia entre las otras. 

Como llamativo podíamos citar al 
Stand Norteamericano, el cual tenía 
una decoración interior extraordina¬ 
ria, con dos fuentes en el centro y un 
par de palmeras en las puertas prin¬ 
cipales. Por citar algunas de las mar¬ 
cas más representativas, podríamos 
citar que estaba Phoenix Technolo¬ 
gies (conocida por tener uno de los 
mejores Bios para PC XT/AT), tam¬ 
bién teníamos a Quantum Corp. que 
nos presentaba los nuevos discos du¬ 
ros de 3,5” con capacidades de 40 y 
80 Mbytes y de rápido acceso, así co¬ 
mo los de 5 1/4” de gran capacidad. 
La casa Ahcad presentaba las nue¬ 
vas tarjetas de gráficos Ega-Wizard, 
con una resolución de 640 X 480 con 
16 colores y 800 X 600 con 16 colores 


Los diseñadores nunca descansan a 
la caza de la nueva imagen de un equi¬ 
po, intentando aunar funcionalidad 
con estética. 

también. Microsdence International 
nos mostraba los discos duros de 62, 
95 y 121 Mbytes una vez formatea¬ 
dos, con una transferencia de datos 
de 5 a 10 Mbytes por segundo depen¬ 
diendo del modelo. Por último, la 
casa Micropolis nos maravillaba con 
sus discos duios superiores en capaci¬ 
dad a los 80 Mbytes y la gran estrella: 
la serie 1500 desde 760 Mbytes con 
un acceso de 18 milisegundos. 

Como stand más serio podríamos 
citar el de Canadá, en el cual las casas 
informáticas tenían dos zonas. La 
exterior para el público y una interior 
para demostraciones profesionales. 

Podríamos hablar también del stand 
de Bélgica que ofrecía una serie de 
tarjetas de gráficos y redes para Ofi- 
mática, y una gama de portátiles que 
iban desde un AT-286 hasta 10 MHz, 
pasando por un AT-386 a 16 MHz. 

Nuevos productos Schneider 

El antiguo socio de Amstrad en 
Alemania se ha introducido al mcr- 
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cado mundial independientemente, 
lanzando la gama Euro PC, que 
consta de ordenadores compatibles 
XT y los MCTower AT-286, el por¬ 
tátil Tarjet PC y un FAX de sobre¬ 
mesa para transmitir documentos. 
También ha lanzado una gama de 
impresoras de 24 agujas y de nueve 
agujas. Estaban situados, al igual 
que Amstrad, en el pabellón seis. El 
stand constaba de dos zonas clara¬ 
mente diferenciadas. Una de ellas ex¬ 
ponía los nuevos productos. En la se¬ 
gunda zona se mostraban los equipos 
de modo más profesional. En la in¬ 
tersección de ambas zonas habían co¬ 
locado un mostrador en el que repar¬ 
tían la información y al lado tenían 
el FAX, que despertaba una gran 
aceptación entre los allí presentes. 

Tendencias del mercado 

El Mercado Informático que pu¬ 
dimos observar en la feria denota 
una tendencia a las unidades de 3,5”, 
en todos los ordenadores y microor¬ 
denadores, debido a la gran fiabili¬ 
dad que representan estos discos y la 
carcasa de protección exterior, asi' 
como la posibilidad de almacenar 
mayor capacidad en estos discos más 
pequeños (720 Kbytes y 1,2 Mbytcs). 

En el campo de los monitores mo¬ 
nocromo, al contrario que está pa¬ 
sando en España, la tendencia es cla¬ 
ra al monitor fósforo verde y al blan¬ 
co y negro, quedando prácticamen¬ 
te por desaparecido el fósforo naran¬ 
ja. En los monitores de color tene¬ 
mos al mercado dirigiéndose cada 
vez más al monitor concreto a sus ne¬ 
cesidades. El monitor color de baja 
resolución (también conocido como 
tubo de TV), se podría decir que ha 
desaparecido, o si había algunos yo 
no los vi, quedando pues la gama de 
monitores a la media y alta resolu¬ 
ción. 

En cuanto a teclados, el modelo 
«Expandido» de 101 ó 102 teclas es 
el que se va extendiendo. También se 
está introduciendo un tipo de tecla¬ 
do que se podría denominar híbrido, 
por tener una parte en teclas y otra 
en sensores (la zona numérica y fle¬ 
chas de cursor). 

En el mercado doméstico de Ale¬ 
mania hay que destacar que han des¬ 
bancado a Amstrad y se ha puesto en 
su lugar Commodore y Atari, los 
cuales tienen entre sí una pequeña 
guerra. Ambas mareas exhibían unos 


stands de varias plantas y una gran 
superficie. Estaban llenos de públi¬ 
co a todas horas. 

Para finalizar hay que hacer men¬ 
ción necesariamente a una serie de 
productos que se han expuesto y es 
necesario comentar. Es el caso de la 
presentación del DBASE IV, que la 
casa Asthon l ate estaba anuncian¬ 
do con un gran interés, mostrándo¬ 
lo al público en varios ordenadores 
y con continuas demostraciones en 
pantalla de vídeo gigantes para el pú¬ 
blico que no se podía acercar a las 
mesas. Y por último, hay que men¬ 
cionar a unas tarjetas pequeñas que 
ya son conocidas en España para los 
ordenadores MSX, las BEE CARD. 
Ahora se han lanzado para el mer¬ 
cado del PC, aportando una memo¬ 
ria adicional, la cual podemos crear 
nosotros mismos desde nuestro PC, 
y la capacidad de la misma que va 
desde los 64 Kbytes hasta los 512 
Kbytes. También una ampliación de 
memoria, la S-RAM, que tiene una 
capacidad que va de los 64 Kbytes 



hasta un Mbyte. Todo 
esto se direcciona desde la' 
tarjeta de conexión de PC a' 
la Bee Carel. 

K. Callardob 



Unidad de lectura-escritura para Softwa¬ 
re en tarjetas Eprom. La última moda del 
Cebit. 



El renacimiento de una vieja idea. Software en tarjeta Eprom: juegos, ges¬ 
tión, de todo. 


Los 

portátiles 
cada vez 
más 

presentes 
en el mundo 
informático. 
Compatibles 
y manejables. 
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Por: Pedro Cuenca 


Continuamos con el estudio de los 
sistemas de protección. En este 
caso nos ocuparemos de un apartado 
escabroso para la mayor parte de los 
usuarios de CPC: la carga y la 
grabación de programas utilizando el 
Sistema Operativo del ordenador. 


ara abordar este tema, 
arraigaremos todas y cada 
una de las rutinas del 
Firmware para manejar los datos 
de cassette y disco. Creemos que 
esto constituirá un útil «manual 
de referencia», al mismo tiempo 
que contribuirá a una mejor 
comprensión de la forma 
en que el ordenador trata el 


almacenamiento externo de 
información. 

El Firmware consta de dos 
grupos de rutinas para la carga y 
grabación de datos, que 
podríamos denominar de «alto 
nivel» y de «bajo nivel». Las 
rutinas de alto nivel son las que 
se emplean cuando hacemos, por 
ejemplo, una grabación con la 


instrucción Sene de Basic, Estas 
rutinas se encargan, en este 
ejemplo, de abrir un fichero 
para salida de datos (semejante a 
Openout) y de ir grabando el 
total de datos que hayamos 
indicado. 

Las rutinas de alto nivel usan 
y reconocen una estructura 
determinada para la lectura y 
escritura de información. Los 
datos se graban en bloques 
sucesivos de 2048 bytcs, cada 
uno precedido de un segmento 
de cabecera con una longitud de 
256 bytcs. Esta cabecera contiene 
información esencial sobre el 
bloque de datos a cargar. La 
estructura de una cabecera, 
publicada anteriormente en el 
número 6 de AMSTRAD Personal, 
figura en este mismo artículo en 
las tablas I y II. Es interesante 
lObscrvar que alterando el byte 18 
o sólo se puede proteger o 
Idcsproteger un programa salvado 
con la opción «p», sino que 
también se puede asignar a 
cualquier programa un tipo 
falso. Si, por ejemplo, asignamos 
a un fichero binario (como una 
imagen de pantalla), el tipo 
ASCII, el ordenador dará error 
cuando lo intentemos cargar con 
Load, aunque si se podrá cargar 
empleando directamente las 
rutinas de alto nivel del 
Firmware. Existen otros muchos 
trucos de este tipo que 
confunden al ordenador, como el 
cambiar la señal de primer 
bloque (byte 23). Si lo hacemos 
así, el ordenador (y también la 
mayoría de los «copiones» 
habituales) se negará a cargar el 
programa. Esta situación se 
puede solucionar empleando las 
rutinas de bajo nivel. 

En la tabla III figuran las 
rutinas de alto nivel más 
importantes de que consta el 
Firmware. Se ha respetado la 
designación que de ellas aparece 
en el Manual del Firmware 
(SOFT 158). 

Si queremos grabar un fichero en 
Ja misma forma en que lo hace la 
orden Basic Save, debemos seguir 
los siguientes pasos: 

1. Abrir fichero de salida 
(#BC8C). 
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2. Grabar datos, bien sea uno 
a uno o de una sola vez (#BC’95 
o #BC98). 

3. Cerrar fichero de salida 
(#BC8F). 

Para cargar un fichero los 
pasos son equivalentes, pero 
referidos a las rutinas de 
entrada. 

Las rutinas de bajo nivel 
(Tabla IV) son fundamentalmente 
tres. Cas Write permite grabar 
cualquier longitud de datos 
directamente a la cinta. 

Esta rutina es utilizada por 
las de alto nivel para grabar¬ 
la cabecera y los 2048 bytes de 
cada bloque. Como vemos en la 
tabla IV, el acumulador debe 
contener un código arbitrario: 
cualquier número del 0 al 255. 
Este código sirve precisamente 
para proteger los programas (si 
no sabemos el código con fueron 
grabados, no los podremos 
cargar), y también para que el 
ordenador distinga si está 
leyendo una cabecera o un 
bloque de datos. Las cabeceras 
se graban siempre con el código 
&16, mientras que los datos se 
graban con el código &2C. Cas 
Read hace el trabajo contrario: 
lee un bloque de cualquier 
tamaño, siempre que indiquemos 
dirección donde queremos 
cargarlo, longitud de los datos a 
leer y el código que se empleó 
en su grabación. 


Para utilizar los 
sistemas de 
protección es 
importante conocer 
la estructura de la 
cabecera, ya que 
ésta contiene la 
información 
esencial de los 
bloques de datos 



r 

rABLA 1 

Zona 

Byles 

Función 

S 

0-15 

Nombre del fichero. 

í 

16 

Número de bloque. 

s 

17 

Diferente de 0 si es el 
último bloque. 

T 

18 

Tipo de fichero (ver 
Tabla 11). 

E 

19-20 

Longitud del bloque. 

M 

21-22 

Dirección de inicio. 

A 

23 

Diferente de 0 si es el 
primer bloque. 

U 

24-25 

Longitud total del fi¬ 
chero. 

s 

26-27 

Dirección de ejecución 
programas en C/M. 

K 

R 

28-63 

Pueden usarse libremente. 



TABLA II 

Descripción del byte 18: 

Bits 

Descripción 

0 

Si está activo, el programa 
está protegido. 

1-3 

Contenido del fichero: 

0 = Basic 

1 = Binario 

2 = Imagen de pantalla 

3 = ASCII 

4-7 = No tienen significado 

4-7 

Versión; 

Ficheros ASCII versión = 1 


Otros ficheros versión = 0 


DIRECCION DE COMIENZO..AOOO 

1 O!QFAO2i62A0CODlBC2!35M,524 

2 C328A126A0C366A0C369A0C3,6AD 

3 3FAOC3A2AOC3A5AOC3C2AOC3,834 

4 DFA0434i532E52455345D453,4DÁ 

5 504545C44D4F544F522E4FCE,47A 

6 4D4F544F522E4F46C6424C4F,3F7 

7 434B53415EC5424C4F434B4C, 3F4 

8 4F4I04424C4F434843484543,3D2 
3 CBOOOOOOOOOOC3S5BCFE01C2,47<> 

10 28A1DD7£00F£01DA28AIFEQ5,5C9 

11 D228A147118CMAFC619! 313,4D3 

12 10FAIA6F131A67C368BC4D01,45C 

13 A70085006F003E01C36BBCAF.473 

14 C36B8CC36E8CC3718CCD13A1,748 

15 E5F5216AAICD2BA1CD188BF1,730 

16 E1CD3EBCD88728512IE8A1C3,77D 

17 2BA1CD13A1E5F52133A1CD2B,674 

18 A1CD1SBBFIE1CDA1BCD8B728,7F4 
13 3421BCA1C32BA1CD13AIE5F5,63C 

20 2133A1CD28AIC018BBF1E1C0,72D 

21 A4BC30062132A2C32BA1B728,4F3 

22 10FE03280621BCAIC32BA121, 46D 

23 FEA1C328A121D0A1C32BA1FE,74D 

24 O32010DD7E00DD5E02DD56O3,401 

25 DD6E040D6605C3EI214FA17E,5D0 

26 FE24C8CD5A882318F62A2A2A,578 

27 2052535820494E5354414C41,343 

28 444F53202A2A2A200D0A2445,224 

29 72726F7220656E2070617261,470 

30 6D6574726F7320525358200D,3£4 

31 0A2450756C73612052454320,34D 

32 7920504C4153207320646573,3C4 

33 7075657320756E6120746563,47D 

34 6C612E200D0A2450756C7361,35B 

35 20504C415920792064657370,3BB 

36 756573206375616C71756965,406 

37 72207465636C612E200D0A24.324 

38 4572726F72206465206C6563.447 

39 74757261200D0A2450726F63,3AB 

40 65736F20696E74657272756D,4DD 

41 7069646F200D0A244572726F,39F 

42 722064652065736372697475,47A 

43 7261200D0A24456C2070726F,350 

44 6772616D61206E6F20636F69,460 

45 6E636964 6520636F6E206C6F, 45E 

46 73206461746F7320656E206D, 42E 

47 656D6F7269612E0D0A245665,3A1 

48 72696669636I63696F6E2063,49A 

49 6F7272656374612EODOA2400,359 


TABLA IV 


Rutinas de bajo 

1. CAS WRITE #BC9E 

Escribe un Moque de cualquier longitud en la Ciri¬ 
la. CAS OLT CHAR. CAS OUT DIRECT y 
CAS OI T CI.OSE usan esta rutina para escri¬ 
bir los bloque* ilt* cabecera y dalo* que compo¬ 
nen los ficheros. 

Entrada 

HE— Dirección de inicio de los datos a grabar. 
DE = Longitud de los dalos a grabar. 

A-Código a asignar al bloque. 

Salida 

Si no hubo problema: 

C^arry 1. 

Si hubo algún error: 

Carry = 0. 

A 0: se |hiImi F.soq>e. 

A«1: velocidad de grabación demasiado rápi¬ 
da. 

En cualquier caso: 

liC, DE, HE, IX comiptos. 

2. CAS READ #BCA1 

l>ec un bloque de cualquier longitud. 

Entrada 

Igual que CAS WRITE. 

Salida 

Si no hubo errores: 


nivel del l irmware 

Carry = 1. 

Si hubo error o se pulsó Escape: 

Carry = 0. 

A = tfc se pulsó Escape. 

A= 1: se encontró un bit mm largo (Read error a). 
A - 2 : se delectó un fallo en la suma de comproba¬ 
ción (Read error b). 

En cualquier caso: 

BC, DE, III/, IX y llags corruptos. 

3. CAS CHI.CK #BCA4 

Compara un bloque grabado en anta con los 
contenidos de memoria. 

Entrada 

Igual que las anteriores. 

Salida 

Si bloque y datos coimidÉm: 

Cany 1. 

Si se produjo error: 

Carry = 0: se pulsó Escape. 

A I: se encontró un bit demasiado largo (Read 
error a). 

A 2: se detectó un fallo en la suma de com¬ 
probación (Read error b). 

A 3: los dalos de memoria son diferentes a los 
gratados en cinta. 

En cualquier caso: 

BC, DE, HE, IX y flags corruptos. 




























































Además de las rutinas de alto 
y bajo nivel existen en el 
Firmvvare otras que permiten 
controlar la forma de actuación 
del cassette. Atributos tales como 
velocidad de grabación, 
encendido y apagado del motor, 
etc. 

Como muestra de todas las 
rutinas del Firmware 
relacionadas con el cassette, 


hemos desarrollado un programa 
que incorpora unos cuantos 
comandos RSX. Para hacerlo 
funcionar correctamente hay que 
copiar, con ayuda del Cargador 
Universal, el programa y salvar 
el binario con el nombre 
«CASRSX». 

Cuando queramos disponer de 
los RSX, bastará con teclear lo 
siguiente: 


Alterando un solo 
byte se puede, 
además de proteger 
o desproteger 
un programa, 
darle un tipo 
falso 


MEMORY &9FFF 
LOAD “CASRSX”,&A000 
CALL &A000 

Los nuevos comandos RSX 
son los siguientes: 

CAS.RESET: efectúa una 
inici'ili/ación completa del 
sistema de cassette. 

SPEED,n: n es un número de 
1 a 4. Establece la velocidad de 
grabación de datos: 

n = l 1000 baudios (bps) 

n = 2 2000 baudios 

n = 3 2500 baudios 

n=4 3000 baudios 

Hay que tener en cuenta que 
cuanto más alta sea la velocidad 
empleada, mayor será la 
probabilidad de error. 

MOTOR.START: pone en 
marcha el motor del cassette. 
MOTOR.STOP: para el motor 
del cassette. 

BLOCKSAVE ,inicj ong,cod : 
graba un bloque binario 
utilizando las rutinas de bajo 
nivel. Inic indiea la dirección de 
inicio, long la longitud y cod el 
código con que deseemos 
proteger el programa. 

BLOCKLOAD,inie,Iong,eod: 
carga un bloque binario con los 
mismos parámetros que 
BLOCKSAVE. 

BLOCKC11ECK, inic, long, cod: 
compara a partir de la dirección 
de memoria especificada por inic 
con un bloque binario giabado 
en cinta. 

BLOCKLOAD, BLOCKSAVE 
y BLOCKCHECK se pueden 
utilizar para grabar nuestros 
programas o, md uso, para cargar 
zonas de cabecera o datos vfc 
fidieros grabados por d método 
habitual. 
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LIBROS 


MS DOS Avanzado 

El libro de Ray Duncan no 
es solamente lino de la larga serie 
de ediciones técnicas acerca del 
MS DOS que tanto proliferan. Ha 
sido escrito en colaboración de los 
mismísimos creadores del sistema 
operativo, y de hecho, en USA lo 
publica MicroSoft Press, la 
división de prensa de Microsoft. 
No es de extrañar que el tema se 
trate con una profundidad 
inusitada. La obra no es para 
principiantes. Presupone en el 
lector un conocimiento importante 
del lenguaje máquina del 8086, así 
como el deseo de desarrollar 
aplicaciones con el rigor 



estructurado y modular del estilo 
de programación de hoy. Todas, 
absolutamente todas, las rutinas 
de serivicio del MS DOS son 
repasadas, explicadas y 
ejemplificadas con programas 
escritos en Assembler una por 
una. 

La «chicha» comienza ya en el 
segundo capítulo, llamado «MS 
DOS en funcionamiento». 

En él se aclaran completamente 
las estructuras y diferencias de un 
programa COM y uno EXE. 

El tercer capítulo, 
«Programación en entorno MS 
DOS» describe la estructura del 
PSP (Prefijo de Segmento de 
Programa), también con ejemplos. 

Tras un repaso a las 
herramientas de programación 
necesarias (capítulo 4), nos vamos 


de cabeza a cómo tratar los 
«dispositivos de caracteres», esto 
es, teclado y pantalla. Todos los 
secretos de la manipulación de 
textos a través de interrupciones 
se desvelan. 

El autor nos lleva de la mano al 
mundo de los discos y su manejo, 
tanto ficheros como directorios, a 
atributos de los mismos. Por 
último, destacan especialmente los 
capítulos dedicados a tratar con 
interrupciones y a la instalación 
de dispositivos. 


Titulo: MS DOS Avanzado 

Autor: Ray Duncan 

Editorial: Anaya Multimedia 
Páginas: 471 
Precio: 7.420 ptas. 


Electrónica 

del estado sólido II 

En este volumen se describen 
los avances en la tecnología de los 
circuitos integrados (CI). Ningún 
otro invento ha influido tanto 
sobre las distintas áreas de la 
electrónica como los circuitos 
integrados. 

A lo largo de sus 10 capítulos 
se describen los procesos de 
fabricación de los CI y los nuevos 
métodos de diseño de circuitos: 

1. Tecnología de circuitos 
integrados. Se revisan las técnicas 
de fabricación de bipolares y de 
MOS. 

2. Circuitos lógicos. Se revisan 
los distintos tipos de circuitos 
lógicos bipolares y MOS y sus 
características. 

3. Celdas y matrices lógicas. Se 
describen los métodos típicos de 
diseño de circuitos «especiales» 
(bajo demanda) de usuario con 
células lógicas y sus redes (errays). 

4. Microprocesadores. Este 
capítulo te enseñará los avances 
en los modernos micros de 32 bits 
y cómo se conectan con la 
memoria y los dispositivos de 
E/S. 

5. Procesado digital de señales. 
Entenderá qué es un procesador 
de señal, cómo funciona, qué 
puede hacer y qué beneficio 
supone disponer de uno de ellos 



en un sistema. 

6. Procesadores gráficos. 
Aprenda sobre visualizadores 
orientados a carácter ya bit. Se 
presenta un análisis sobre 
pantallas de color y monocromas. 

7. Procesadores de 
comunicaciones. Se describe lo 
que es un procesador de 
comunicaciones, elemento clave en 
redes digitales. Se aclaran los 
conceptos sobre redes locales 
(LAN). 


Título: Electrónica del estado 

sólido II 

Autor: Don L. Camión 

Editorial: A naya Multimedia 
Páginas: 272 
Precio: 2.200 ptas. 


Turbo Pascal 

El subtítulo de este libro, 
Guía del Programador , está 
plenamente justificado. Los 
autores comienzan con una 
brevísima introducción de qué es 
Turbo Pascal, para entrar en 
materia y pasar a describir con 
acierto y detalle las principales 
características de la versión de 
Turbo bajo CPM. Tras esto, la 
jugada se repite con las versiones 
de Turbo Pascal que se ejecutan 
en entorno MS DOS. Las 
diferencias están muy bien 
marcadas. Algunas órdenes del 
lenguaje, tanto directivos del 
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compilador corno fundones y 
procedimientos específicos, varían 
en puntos sutiles y a menudo 
críticos de una versión a otra. No 
sólo de CPM a MS DOS, sino 
también de la 2,00 a la 3,00, por 
ejemplo. En los ítems afectados, 
esto siempre se indica. 

Por otra parte, Turbo Pascal 
tiene algunas peculiaridades muy 
especiales, que facilitan el 
desarrollo de aplicaciones, en 
especial para PCs. El libro los 
repasa y explica con detalle, 
haciendo hincapié en cómo 
aprovecharlos. Además, se aborda 
un extremo esencial para el 
programador: cómo usar desde 
Turbo Pascal procedimientos 
externos. 


informática es básicamente un 
texto de estudio práctico de 
problemas planteados en variados 
temas como algoritmos, ficheros, 
tablas de decisión o dispositivos 
de entrada y salida. 

El planteamiento del libro, 
completamente didáctico, consta 
de dos partes. En los primeros 
capítulos se plantean problemas 
con sus soluciones 
correspondientes y una detallada 
explicación de cada paso. Este 
desarrollo permite adquirir los 
conocimientos imprescindibles 
para que el lector se enfrente en 
¡a segunda parte a los 80 
problemas enunciados en el texto. 



Título: 

Manual de Turbo ‘m 


Pascal 

Autor: 

Díaz Calero 


y Suja Goffin 

Editorial: 

RA-MA 

Páginas: 

200 

Precio: 

1.950 pías. 


Título: 

200 problemas U 


de informática 

A utor: 

T. Hurtado Merello 

Editorial: Paraninfo 

Páginas: 

244 

Precio: 

1.425 pías. 


200 problemas 
de informática 

Este texto que nos ocupa 
nace para suplir, dentro de la 
bibliografía existente en materia 
de informática, el espacio vacío 
que los libros teóricos han dejado 
sin rellenar. 200 problemas de 


Programación 
del Z80 

Aunque el libro, según sus 
editores, va dirigido a todos los 
programadores en general, 
incluidos los que empiezan a 
tomar contacto por primera vez 
con el Z80, lo cierto es que desde 


nuestro punto de vista es mucho 
más indicado para aquellos que 
con unos conocimientos previos, 
quieran profundizar mucho más 
en las interioridades de este 
microprocesador, y en este sentido 
sí podemos afirmar que se trata 
de una obra imprescindible para 
cualquier programador que se 
precie de serlo. 

Contiene, junto a una 
descripción detallada del 
hardware, una extensa guía de 
programación que ha sido 
estructurada gradualmente y con 
numerosos ejemplos para 
ayudarnos a entender mucho 
mejor el modo en el que actúa el 
Código Máquina. 

El libro es muy completo, una 
extraordinaria guía de consulta y, 
repetimos, un manual 
imprescindible. 

Quisiéramos hacer notar que, 
encubiertas bajo un aspecto serio 
y de gestión, se encuentran 
multitud de rutinas madres de 
más de un programa divertido. 

Concretamente, los aficionados 
a programar juegos, con o sin 
gráficos, hallarán una serie de 
claves muy importantes para 
conseguirlo. 

Programación 


del Z80 



Título: 

-- , 

Programación del Z80 

A utor: 

Rodnay Y.arks 1 

Editorial: 

Anaya Multimedia 

Páginas: 

603 1 

Precio: 

3.392 pías. 
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C/ Duque de Sesto, 50-28009 MADRID 
(Metro O’Donnel o Goya) 

Telf.: (91) 409 61 36-274 75 02 




COMPATIBLE IBM-PC 640 K 
MONITOR F. VERDE 
2 UNIDADES DE DISCO 

149.000 PTAS. 





COMPATIBLE IBM-PC 640 K 
MONITOR F. VERDE 
1 UNIDAD 360 K/1 DISCO 
DURO 20 MB 
191.000 PTAS. 


COMPATIBLE IBM-PC 512 K 
MONITOR F. VERDE 
1 UNIDAD DE DISCO 

126.300 PTAS. 


IMPRESORAS 20 % DESCUENTO SOBRE P.V.P. ¡ 





DISKETTE 3"C/CAJA 



GAFAS MONITOR 

. 

5.900 

DE PLASTICO 



CINTA IMPRESORA GEMINI .... 

325 

1 UNIDAD . 

595 


CINTA IMPRESORA ADMATE . . 

1.295 

10 UNIDADES . 

565 


SOPORTE IMPRESORA . 

1.495 

20 UNIDADES . 

545 


FILTRO PANTALLA 12” . 

3.200 

MAS DE 20 UNIDADES 

.. CONSULTAR 


FILTRO PANTALLA 14” . 

3.600 

DISKETTE 3 1/2" 



ETIQUETAS 100 UDS . 

150 

1 UNIDAD . 

349 


ETIQUETAS DISCOS 


10 UNIDADES . 

329 


10 UDS . 

35 

20 UNIDADES . 

310 


CABLE IMPRESORA . 

2.900 

DISKETTE 5 1/4” .... 

165 


BASE MONITOR . 

3.450 




POR LA COMPRA DE 12 DISKETTES 5 1/4" GRATIS UN ARCHIVADOR DE METACRILATO j 


¡¡¡OFERTA HASTA EL 30-04-88!!! 

COMPRA 3 CAJAS DE DISCOS DE 12 UDS Y LLEVATE OTRA GRATIS 


DISCO DURO TARJETA 21 MB (marca TANDON) 69.900 PTAS 


QUICK SHOT X 3.300 

QUICK SHOT II TURBO . 2.595 

KIT LIMPIADOR 5 1/4” . 1.250 

KIT LIMPIADOR 3 1/2" . 1.450 

ARCHIVADOR 10 UDS 5 1/4” .. 275 

ARCHIVADOR 10 UDS 3 1/2” . . 250 

ARCHIVADOR SPACE 
(DISEÑO FUTURISTA) 

3 1/2” Y 5 1/4” . 3.600 


ARCHIVADOR 100 UDS 5 1/4’ 


C/LLAVE 2.750 

ARCHIVADOR 80 UDS 3 1 /2" 

C/LLAVE . 2.500 

ARCHIVADOR MULTIUSO 

C/LLAVE . 2.400 

TARJETA 2 JOYSTICK . 3.450 

TARJETA GRAFICA . 9.900 

TARJETA RS-232 . 7.900 


PEDIDOS CONTRA REEMBOLSO SIN GASTOS DE ENVIO (SI es inferior a 1.200 ptas se cargarán 150) LLAMA POR TELEFONO 
_ ADELANTARAS TRES D IAS TU PEDIDO. TELEFONOS 274-75-03 409-61-36 

TIENDAS Y DISTRIBUIDORES PIDAN LISTA DE PRECIOS AL MAYOR 
C/GALATEA 25 28042 MADRID TEL: 742 20 19 FAX: 742 79 68 
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Sintetizador 
de sonidos 


para CPC 


Una de las cualidades más sobresalientes del Ams- 
trad es su chip de sonido. Este potente chip dis¬ 
pone de tres canales independientes de sonido, 
además de una serie de envolventes predefinidas 
y de un generador de ruidos. El nombre técnico 
de este chip es el de PSG AY-3-8912 o, para en¬ 
tendernos, generador de sonidos programable. 

por Daniel Calvo 


O riginalmente, el AY-3-8912 
fue diseñado para 
conectarse directamente a 
las líneas de dirección del Z80. 
Pero la gente de Amstrad lo usó 
de una manera realmente extraña, 
pues el chip está conectado al 
PP1, por lo que su programación 
desde Código Máquina es 
realmente difícil. 

Con el programa de este 
artículo podremos mandar datos 
al chip directamente, lo que nos 
permitirá una experimentación con 
el mismo para su mayor 
comprensión y utilidad. 

Antes de explicar su 
funcionamiento, vamos a hacer 
una pequeña introducción de 
cómo está conectado el PSG al 
Amstrad, y de los registros de que 
dispone. 

El PSG dispone de 16 registros, 
y el método para acceder a ellos 
es similar al utilizado en el 
CRTC, es decir, primero se 


selecciona un registro y después 
podremos leer o escribir en él. La 
forma de seleccionar si es lectura i 
o escritura se realiza a través de 
los dos bits más altos del puerto 
C del PP1, accesible por &F6xx, 
donde xx puede ser cualquier 
valor. El bit 6 es la línea BC1, 
mientras el bit 7 es BDIR. La 
tabla de funcionamiento de estos 
dos bits es la siguiente: 


BC1 

BDIR 

Significado 

0 

0 

Inactivo 

0 

1 

Lee del PSG 

1 

0 

Escribe el PSG 

1 

1 

Selección del registro 


Los registros R0 a R5, tomados 
por parejas, informan al PSG del 
tono de cada uno de sus canales 
A, B y C, respectivamente. Los 
registros pares (R0, R2, R4) son 
los 8 bits menos significativos del 
tono, mientras los registros 
impares (Rl, R3, R5), los 4 bits 
más significativos, por lo que en 


total, el tono viene determinando 
12 bits. 

El registro R6 determina el 
periodo de ruido, del cual sólo 
son significativos sus 5 bits mas 
bajos, por lo que el valor podrá 
variar entre 0 y 31, siendo 0 la 
ausencia de ruido. 

El registro R7 controla la 
mezcla entre los tres canales y el 
generador de ruido. También 
controla el puerto de entrada- 
salida del que se hablará más 
adelante. El significado de cada 
bit viene explicado en la siguiente 
tabla, teniendo en cuenta que un 
0 en un bit activa esc canal, 
mientras un 1 lo desactiva. 


HIT Valor 0 Valor 1 


0 Activa sonido canal A 

1 Activa sonido canal B 

2 Activa sonido canal C 

3 Activa ruido canal A 

4 Activa ruido canal B 

5 Activa ruido canal C 


Desactiva canal A 
Desactiva canal B 
Desactiva canal C 
Desactiva ruido A 
Desactiva mido B 
Desactiva ruido C 
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Así, por ejemplo, si inandamos 
al registro 7, el siguiente valor en 
binario 110010, activamos el 
sonido en el canal A y C, y 
además en el canal A activamos el 
generador de ruido. 

Los registros R8 a R10 
controlan los volúmenes de los 
canales A, B y C, 
respectivamente. Los valores 
pueden variar entre 0 y 15. 
Además, el bit 4 controla si está 
activa o no la envolvente, que 
actuará sobre la amplitud del 
sonido. 

Los registros R11 y R12 
controlan el periodo de la 
envolvente de forma similar a 
como lo realizan los registros R0 
a R5 sobre el tono. 

El registro R13 define la 
envolvente a utilizar, y sólo son 
significativos los 4 bits de menor 
peso. Hay que señalar que si el 


10 REH 

20 REN Control del PSG 

30 REI1 A«strad Personal 1933 

40 REM Daniel Calvo González / 

50 REfl ( 

60 HADE 2;60SUB 6S0:’ Codigo Maquina \ 

70 REH 

80 REM Inicializacion 
90 REII 

100 LINEAS="01234567B9ABCDPS" 

110 LOCATE 1, liPRINT CHRi(l50)tSTRIN6í(2 
4,1541'Registros del PSG y Pune i or ‘+-STRI 
NGS(27,154)CHRP(156) 

120 LOCATE 1,2:PRINT CHR*(149>TABíB0)CHR 
1 ( 149 ) 

130 LOCATE 1,3:PRINT CHR*<149)TAB<17)‘0 
R0 Periodo de tono del Canal A (0-7)'T 
A8(80)CHR$(149) 

140 LOCATE 1,4:PRINT CHR*(149)TAB(17)'1 
R1 Periodo de tono del Canal A (8-11)" 
TA8(80)CHRt(143) 

150 LOCATE 1,5:PRINT CHRÍ(149)TAB<17)*2 
R2 Periodo de tono del Canal B (0-7)"T 
A8(B0)CHRt(149) 

160 LOCATE 1,6:PRINT CHR1(149)TAB(17)"3 
R3 Periodo de tono del Canal B (8-11)" 
TA8(80)CHRt(149) 

170 LOCATE 1,7:PRINT CHR»(149)TAB(17)"4 
R4 Periodo de tono del Canal C (0-7)"T 
AB(B0)CHRí(149) 

130 LOCATE 1,8:PRINT CHRt{149)TAB(17)*5 
R5 Periodo de tono del Canal C (8-11)" 
TAB(80)CHR«(149) 

190 LOCATE 1,9:PR[NT CHRt(149)TAB<17)’6 
R6 Periodo de ruido (0-4)"TA8(80)CHRt( 
149) 

200 LOCATE 1,IOiPRINT CHRt<149)TAB(17)"7 


I bit 4 de los registros R8 a R10 
está a cero, cualquier valor 
mandado a R3 será ignorado, por 
lo que si queremos que la 
envolvente actúe sobre el sonido, 
deberemos poner a uno el bit 4 
del canal o canales sobre los que 
queremos que actúe. 

Las distintas envolventes de las 
que dispone tienen ei siguiente 
efecto: 

0 a 3: Empieza con una 
amplitud máxima y se va 
debilitando hasta silenciarse. 

4 a 7: Sube hasta el máximo y 
después bruscamente pasa al 
silencio. 

8: Como 0 a 3, pero 
repitiéndolo sin parar. 

9: Como 0 a 3, pero de un 
modo más marcado, 

10: Comienza alto, baja, sube y 
se repite. 

11: Ataque fuerte, se debilita 


1 hasta llegar al silencio, y después 
vuelve al máximo quedándose en 
él. 

12: Sube hasta el máximo y se 
repite. 

13: Sube hasta el máximo y se 
queda en él. 

14: Al revés que en la 
envolvente 10. 

15: Igual que en 4 a 7, 

Por último, los registros R14 y 
R15 se encargan de gestionar la 
puerta de entrada y salida de la 
que está dotado el PSG, pero su 
uso no tiene efecto alguno sobre 
el sonido. 

En cuanto al uso del programa, 
no puede ser más fácil. Una vez 
ejecutado, la pantalla aparece 
dividida en dos partes. En la 
superior se nos muestra en una 
primera columna y entre corchetes 
los valores que actualmente tiene 



CHECK DEL 10-480 


10.- 

213 

20. - 

1615 

30. - 

2121 

40. - 

2293 

50. - 

253 

60. - 

2286 

70.- 

273 

80.- 

1776 

so.- 

293 

IDO. - 

1885 

110.- 

6214 

120.- 

2096 

130.- 

5530 

140. - 

5595 

150.- 

5557 

160. - 

5622 

170.- 

5584 

180. - 

5649 

190. - 

4744 

200. - 

6101 

210.- 

4168 

220. - 

4181 

230. - 

4291 

240.- 

4304 

250. - 

4317 

260. - 

4133 

270. - 

4147 

280. - 

4175 

290.- 

5190 

300. - 

5259 

310.- 

4900 

320. - 

2452 

330.- 

2331 

340. - 

2342 

350. - 

2537 

360. - 

566 

370.- 

B26 

380. - 

328 

390. - 

1455 

400.- 

348 

410.- 

3045 

420.- 

626 

430.- 

3700 

440.- 

2651 

450. - 

7513 

460. - 

4227 

470. - 

10262 

480. - 

2453 


R7 Bit 0 - tono Canal A (0 activa, I 
./nhibe)*TAB(80)CHRS(149) 

210 LOCATE 1,11¡PRINT CHR»(M9)TAB(24)"B 
it 1 - Tono Canal B’TAB(B0)CHR$(149) 

220 LOCATE 1,12:PRINT CHRt(149)TAB(24)’B 
it 2 - Tono Canal C*TAB(80)CHR*(149) 

230 LOCATE 1,13:PRINT CHR*(149)TA8(24>*B 
it 3 - Ruido Canal A*TAB(B0)CHR*(149) 

240 LOCATE 1,14:PRINT CHR»U43)TA8(24)’Í 
it 4 - Ruido Canal B'TAB(80JCHR*(149) 

250 LOCATE 1,15:PR1NT CHR*(149)TAB(24)"8 
it 5 - Ruido Canal C"TAB(80)CHRt(149) 

260 LOCATE 1,1&¡PRINT CHR*<149)TAB(17)*8 
R8 Voluien Canal A"TAB(B0)CHRS^¡49) 

270 LOCATE 1,17:PRINT CHR*(149)TAB(17)*9 
R9 Voluien Canal B‘TAB(80)CHR* (149)” 
280 LOCATE 1,18:,.;>NT CHR$(149)TA¿(17)/fl 
RIO Voluten Canal C'TAB< 80) CHR*(149 j 
290 LOCATE 1,19:PRINT CHR*(149)TAB<17)>8 
Rl! Periodo de envo'-ente (0-7)'TAD(80 
)CHR*(149) 

300 .LDCAJC 1,20: PRINT CI<RMMS)TAr.LI7)"C 
R12 Periodo de envolvente (8-15)"TAB(8 
0)CHR*<149) 

310 LOCATE 1,21:PRINT CHR*(149)TAB(17)’D 
R13 Tipo de envolvente (0-4)"TAB(80)CH 
RK149) 


320 LOCATE 1,22:PRINT CHR*(151)ETRING*(7 
8,154JCHR*(157) 

330 LOCATE 1,23:PRINT CHR*(149)STRTNG*(7 

8.32) CHRt(143) 

340 LOCATE 1,24:PRINT CHR*<149)STRING*(7 

8.32) CHR*(149) 

350 LOCATE 1,25:PRINT CHRtt147)STRIN6*(7 
8,154)CHR*(153)¡ 

360 GÜSOB 740 
37Ó\H!". n 2N 11,2,79,23,24 

V 

H BUCLE PRINCIPAL 

EN 

LOCATE ti,24,liPRINT ti,"Elige regís 
tro (0-D),S o P" 

420 G0SUB 740 

^43tPTECLA»=":HHILE TECLAS--"":TECLA*=UPP 
ERSÜNmshNEND 

440 IF itlsTRCLINEAt,TECLAi)=0 THEN 430 
450 I^teclat ="P" THEN 60SUB 530:CLS II: 
,£OTtf'410 ELSE IF teclaS="S" THEN G0SUB 7 
80:SOTO 380 ELSE reg=VAL("l’*teclat) 

460 LtCATE 17,3+;eg-5*(reg>7):PRlNT CHRS 
(24)teclaSCHRt(24) 

470 CLStl¡LOCATE 11,26,1 :PRINT 11,"Valor 
a tandar a R’;teclat;:lNPUT 11," ",nu*e 
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el PSG en cada uno de sus 
registros, a continuación un dígito 
que va desde 0 hasta D, que será 
la tecla que deberemos pulsar 
para seleccionar un registro y 
mandarle un valor, y una 
descripción de cada uno de los 
registros. A su vez y entre 
paréntesis los bits significativos de 
cada registro. Si pulsamos la tecla 
P, el programa nos permitirá 
elegir entre unos sonidos de 
prueba que lleva incorporados el 
programa Basic. 

Como se ha dicho antes, si 
queremos mandar un valor a un 
registro, deberemos pulsar la tecla 
correspondiente. Si nos hemos 
equivocado al elegir el registro, 
bastará con responder con la tecla 
linter, y así el programa no 
mandará ningún valor. Es 
recomendable no hacer sonar el 
PSG con algún comando Basic 


(por ejemplo el CHR&(7)), porque 
si lo hacemos, el intérprete Basic 
cambiará todos los valores del 
PSG que tengamos en esc 
momento, con lo que perderíamos 
los datos que tuviésemos. 

Si mandamos un valor al 
registro 7, el programa siempre 
pondrá a 1 el bit 7, y a 0 el bit 6, 
pues de no ser así, los resultados 
no serían los esperados, ya que 
esos dos bits definen el estado del 
puerto de entrada y salida del que 
dispone el PSG, aunque siempre 
podemos quitarlo, e intentar 
experimentar. 

Pero lo verdaderamente útil de 
este pix^.ama, es que nos permite 
utilizar los sonidos que definamos 
en nuestros programas Basic. Para 
esto será necesario copiar el 
listado 2 con el Cargador Universal 
y salvarlo en el disco con el 
nombre de “SONIDO.BIN”. Así, 


I cuando ejecutemos el creador de 
sonidos y creamos que tenemos 
un sonido bonito, o simplemente 
que nos guste, deberemos dar a la 
¡ tecla S (S = Salvar). Tras esto, nos 
pedirá el nombre con el que 
queremos salvar el sonido en cinta 
o disco. El programa salvará el 
sonido como una subrutina Basic 
que podremos mergear en 
nuestros programas. 

Para luego poder hacer uso del 
sonido, en la primera linca de 
nuestro programa deberemos 
añadir las siguientes instrucciones: 

MEMORY &9FFF:LOAD 
“SONIDO ,B1N”,&A000 

Y cuando queramos que suene 
deberemos hacer un GOSUB 
65000, que es el número de línea 
a partir del cual se generará la 
subrutina, aunque siempre 
podremos renumerarlo. ■ 


I 


CHECK DEL 490-980 


490. - 

3706 

500. - 

3828 

510. - 

4801 

520. - 

6369 

530.- 

223 

540. - 

1 890 

550. - 

243 

560.- 

279 

570.- 

1893 

580. - 

3392 

590. - 

2828 

600.- 

2245 

610.- 

7915 

620. - 

1837 

630. - 

7955 

640.- 

1904 

650. - 

7996 

660. - 

2151 

670. - 

8035 

680.- 

1980 

690. - 

1775 

700. - 

1306 

710. - 

3604 

720.- 

7233 

730. - 

334 1 

740. - 

6359 

750. - 

447 

760. - 

453 

770. - 

231 1 

780. - 

218 

790. - 

221 

800. - 

849 

810. - 

4130 

820. - 

en 

830. - 

3134 

840. - 

1527 

850. - 

2834 

860. - 

1862 

870. - 

8678 

880. - 

2250 

890. - 

1330 

300. - 

3830 

910.- 

1700 

920.- 

337 

330 . — 

455 

940. - 

318 

950. - 

3940 

960. - 

1054 

970. - 

434 

980. - 

422 






i 


ro$:IE nu»erot = ” THEN LOCATE 17,3+reg-5 
t(reg>7):PRINT teclat:CLS II:G0Í0 410 
4B0 nu«ero=VAL(nmero$) 

490 IF nutero<0 0R nmero)255 THEN 470 
500 IE REG=7 THEN HUHER0=(NUMERO AND til 
11111) OR 4X10000000 


620 DATA 7,163,0,31,6,24,11,7,12,95,13*0 )J 

630 RESTORE 640:F0R x=l T0 6:R£AD 8,b:Pr^^ 

KE 49001,a:P0KE &9003,b:CALL MOOO:LOCAT 

E 7,3*a-5*(a>7):PRINT '['¡USINS 

:PRINT ■ 3':NEXT:RETURN 

640 DATA 7,183,8,3!,6,24, 11,32, 12,60, 13, 


6,4f,E6,40 1 ED l 79,6,F4,ED,78 f 6,E6,ED 1 49,E 
r-,/2,0 ,92,C9 

30 P0t(E 49000,43E-.P0KE 49002,4E;PDKE 49 
004,4C3:P0RE 49005,434:P0KE 49006,48D:RE 
TURN 

^mEOR 1=0 TO 13:LOCATE 7,3+x-5t(x>7):P 
CKE~43l01,x:CALL 49100:PRINT , [ , ;USING 1 
IH ,I«EK(49200)¡iPRINT ’P:NEXT 
750 REÍURN 

M REf 

770 REl| Rutina de Salvar Datos 

730 REÍ 

790 CLSIl 

800 DIN TA8LAI13) 

810 EOlj x=0 T0 13:POKE 49101, mCALL 4910 
0:tabla(í)=REEK(49200):NEXT 
820 CALL 48CA7 

3.90 LOCATE 11,24,1:INPUT «i,*No«ibre del 

sonido ',naiel 

840 0PEN0UT na»et+'.bas* 


510 LOCATE 7,3+r eg-5* < r eg >7):PRINT *[‘;U 

S1NG ■*##";nu«ero;:PRINT T 

520 POKE 49001rreg:POKE 49003,nu«4ro:CAL 

l 49000:LOCATE 17,3Heg-5Kreg>7) PRINT 

tecla$:CLS I1:G0T0 410 

530 REN 

540 REN Sonidos de Prueba 
550 REN 
560 CLS II 

570 LOCATE *1,25,1:PRINT II,'EjeMlos 

4' 

580 eje«t=":HKILE eje«t=" :eje#t 
:HEND 

590 IF ejeilCi" 0R eje«t>'4' THEN 570 
600 0N VAL(ejeií) GOTO 810,630,650,670 
610 RESTORE 620:E0R x=l T0 6:READ a, UPO 
KE 4900!,a:POKE 49003,b:CALL 49000:L0CAT 
E 7,3+a-5*(a>7):PRINT '[';USIN6 1 
:PRINT *3*:NEXT:RETURN 


8 

650 RESTORE 660:F0R x=í T0 7:READ a,UPO 

g ll:P 0 KE ^ 003 , 9:0411 49000 : 10 CAT 
-5Ka>7):PRINT 'Í';USINB ■*H , ¡b¡ 
’]':NEIí:REíURN 

ft,100,1,2,7,190,8,31,11,32,12,6 

TOE 680:FOR x=l T0 6:READ a,b:PO 
■a:POKE 49003,brCALL 49000:LOCAT 
L-? T S*a-5*(a>7):PRINT *E*;USIN6 'ttt'ib; 

:PRINT * *“:NEXT:RETURN 

>80 DAT A», 11,7,183,8,16,11,50,12,10,13, 

10 J 

ISjl^RtM Codigo Maquina 

'00 MEMORY 43FEF:RESTORE 720 

'10 FOR X=49100 T0 4912A.-READ AS:POKE X, 


850 PRINT 19,'65000 ret Sonido de ’+nane 
$ 

860 PRINT 13,'65010 restore 65040' 

870 PRINT 19,'65020 (or linea=0 to 13:re 
ad sonido,valorrpoke 4A090tlineaf2,sontd 
o:poke 4AQ9ltlineat2,valor:next' 

880 PRINT 19,"65030 cali 4A000:return' 
890 PRINT 19,'65040 data '; 

900 FOR x=0 T0 13: PRINT 19, STR$(x)¡S 
TRtttabla(x)); 

910 IF x<)13 THEN PRINT «9,','i 
320 NEXT 
930 PRINT 19 
940 CL0SE0UT 

950 FOR x=0 T0 13:P0KE 49001,x:POKE 4900 

3,tabla(x):CALL 43000:NEXT 

960 ERASE tabla 

970 CLS II 

980 RETURN 



‘1NKEYÍ 


III 


IALC4'*AS):NEXT 

'•b: 'i P0 DATA 3E,00,F3,6,F4,ED,79,06,F6,ED,78 

V^^^j^y^EjCO.EEr, 79, E&,3F,ED,79 I 06,r4,£D,49,6,F 
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GESTIÓN CPC 

GESTIÓN INTEGRADA PARA CPC (III) 

Recibos 



E ste programa imprime sobre 
recibos estándar los 
correspondientes a las facturas 
emitidas en el programa anterior. 
Consta de un menú con cinco 
opciones: 

1. Cargar fichero. Carga de 
disco el fichero nombre.CLI que 
deberá haber sido creado en la 
opción 3 de este mismo programa 

2. Salvar fichero. Salva en 
disco el fichero nombre.CLI. 

3. Crear fichero. Aparece en 
pantalla una ficha numerada con 
los siguientes apartados a 
cumplimentar: nombre, domicilio 
y ciudad del cliente. Nombre, 
agencia, domicilio, ciudad y 
número de la cuenta del banco, 
para domiciliar los pagos del 
cliente. 

4. Modificar fichero. Se nos 
pide el número de ficha que se 
quiere modificar. Aparecerá en 
pantalla la ficha con los campos 
numerados del 1 al 8. Tras 
efectuar la corrección se 
preguntará acerca de otra posible 
corrección. 

5. Emitir recibos. Pregunta si 
queremos cargar el fichero de 
cabeceras nombre.FI2, que fue 


Dentro del sistema de 
Gestión Integrada para CPC 
que ofrecemos en este 
número, la edición de 
recibos es, sin duda, uno de 
sus principales módulos. 
Nos va a permitir solventar 
todo un mundo a golpe de 
tecla. 

creado anteriormente en el 
programa facturas. A 
continuación deberemos cargar la 
fecha, localidad de expedición y 
código de numeración de los 
recibos. 

Se pueden obtener dos tipos de 
listados por pantalla o por 
impresora, relación de recibos a 
emitir y factura para el banco 
permitiendo hacer una o varias 
pruebas en la impresora para el 
impreso estándar de recibos. 

A continuación se imprimirán 
los recibos con los datos del 
fichero nombre.F14 que se carga 
automáticamente. 

6. Abandonar programa, con 
salida al de contabilidad o al de 
facturas, vuelta al menú principal 


o fin de trabajo, siguiendo la 
pauta del submenú que aparece en 
pantalla. 

La primera vez que se rueda 
esta cadena es importante seguir 
los siguientes pasos: 

1. Acceder al programa 
de contabilidad para crear el 
fichero nombre.Con: 

Opción 8, crear subcuentas 
Opción 9, crear cuentas 
Opción 3, introducir 
primeros apuntes 

Opción 2, salvar fichero 
nombre.Con 

2. Acceder al programa de 
recibos para crear el fichero 
nombre.CLI: 

Opción 3, crear fichero 
Opción 2, salvar fichero. 

El orden lógico de ejecución de 
esta cadena teniendo creados los 
ficheros nombre.Con y nombre.CLI 
es: 

Facturas— > Recibos— > Contabilidad. 
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NO MÁS 
OPERACIONES 
TEDIOSAS 
A MANO. 

EL CPC 

Y EL PROGRAMA 
SE ENCARGAN. 




10 0N ERROR ooro 450 
20 MODE 2:P=250:DIR NOMCLIKPl.DONC 
LIÍ(P),CIUCL!Í(P),8ANC0Í(P),AGENCIA 
* (P) F DDHBANt (P) , CIUSANt(P),CTABANf ( 
P) 

30 T=50:DIR CDD(T3,MUMER0<T),OLItCT 
) ( CONCEP»(T),H0N0PA(T),IVA(T),TRANS 
(T),DESC(TJ 

40 DI)1 M$(12':F0R 1 = 1 10 12:AD Mí 
<I):NEX;:DATÓ ENERO,FEBSERO,RAftlO,A 
BRIL.flAVO, JUNIO, JULÍO, AQ03TO, SET IE.M 
BRE,OCTUBRE:fi = 1: 

50 OATA NOVIEMBRE,DICIEMBRE 
60 CLS:LOCATE 28,6:PRINT CHRí(24)¡C 
HRí (150);3TR1 ItGl (23,CHRi;154ji¡CHRI 
0 56),¡LOCATE 23,7:PR1NT CHR»(H3)¡ 

‘ IMPRESION DE RECIBOS '¡CHRIÍ149) 
:LOCATE 28,8:PRINT CHRfCM7t¡STRINB 
í(23,CHRi(154));CHÍÍ(153)¡CHSí(24) 
70 LOCATE 28,10:PRINT 'PROGRAMA DE 
JAVIER SARCIA 1 

80 LOCATE 34,12:PRINT "MADRID - 198 

7*¡LOCATE 25,18 ¡PRINT 'PULSE UNA T 

ECLA PARA CCHENZAR’iPLOT 135,330:DR 

m 241,0:DRAVR O,-133:DRAHR -241,0 

:DRAHR 0,133:PLOT 132,335:ORAME 248 

,0:ORANR O,-143;DRAWR -248,5:DRAH8 

O,143:CALI IB81B 

90 CLSvGOSUS 410 

100 CLS 12:CLS »I:CLS:60SU8 500 

110 GOSUB 320:ON C GOSUB 310,360,54 

0,910,1240,2560 

120 GOTO 100 

130 ERO 

140 REH HHHHIHH 
150 REK ni INPUT m 
160 REH HIHHIHIII 
170 al fat=“ 

130 LOCATE lo,X,y:PRINT lo,CHEtí 143 
):LOCATE lo,x,y:PRINT lo,' *:a*=UPP 
ERKIKKEVI): 1E aí=" THEN 180 
190 IF al=CHRÍ(13) THEN RETURN 
200 IF at-CKRt(127) ANO >)xl THEN x 
=x-l¡al l;S=HÍDí(alfal,l,L£N(aIfaS)- 
1)¡GOTO 130 ELSE IF al=CHM<127) AN 
D x-xl THEN alfaí=HIDí(atlaí, 1,LEN( 
alfa*)':GOTO 180 

210 LOCATE lo,*,y:PRINT lo,al:IF x= 
x2 THEN 180 

220 S=X+1: ALFA4=ALFAHAt¡ GOTO 180 
230 REH HiiiHHitmi 
240 REH ii CALL bblB « 

250 REH mínimum 

260 CLS 12:LOCATE *2,23,1¡PRINT 12, 


•PULSE UNA TECLA PARA CONTINUAR*:CA 
LL 18B18 
270 RETURN 

2B0 LOCATE 22,6:PRINT 'FECHA (CBHHA 
A i':LOCATE 22,8:P«INT "LOCAL TOAD*:L 
OCATE 22,10:PRINT 'CODIGO HUMERACIC 

290 RETI mmmmnmim • 

300 REH ii DETECTA HUT4EÍ03 *» 

310 REH luimiMtiuttuiu 
320 C *=INKE Y $ ¡ IF CICI* OR Cl>'6" T 
HEN 320 

330 C=VAL(C») :P,ETURN 
340 REH mimntimmium 
350 REH ti NO EXISTE FICHERO u 
360 REH mmmmimmmi 
370 IF F¡=1 THEN CLS ll:CLS I2;PSIN 
T *2,' NO EXISTEN DATOS EN MENORIA 
PARA TRABAJAR, P'JLC - V.i ‘ TECLA "Ai,A 
VOLVER AL MENU':CALL LBB1S:GSTD 10 
0:ELSE RETURN 
380 REH, «mmtmti 
390 REH.n HISDOlft i • 

400 REH iiiiiiiiimi 

410 HINDOU *0,1,30,!,í 9:U1NOOW 41,1 

,30,21,25:tí!ND0K *2,1,80,19,2!:RETU 

RN 

420 REH immimimmmmm 

i 

430 REH ii TRATAHIENTO DE ERRORES t 

i 

440 REH utumiHimmmmm 
t 

450 IF DERR=146 THEN CLS »1:CLS 12: 
CLS¡LOCATE 26,13:PRINT 'NO ESÍSTE E 
L FICHERO 'no»bre*:GOSUB 260:CLS 12 
:CLS:CAT:GCSU3 260:f,ESUHE 100 
460 RE5UHE 100 
470 REH Hiiimii 
4BJ REH n HENO •• 

490 REH imtiiiu 
500 PRINT II,STRINGK37,’=");' HENU 
'¡STRIN6ÍÍ3/, '=')): PRINT «1, ‘l.fAR 
GAR PICHERO 2.SALVAR FICHERO 
3.CREAR FICHERO 4.HOOIFICAR FI 
CHER05,tHPRIH;R RECIBOS 6.ABANDON 
AR PROGRAMA 1 :PRINT 11,STRINS*CSO,' = 
'1:RETURN 

510 REH mmimmium 
520 REH u CREAS FICHERO u 
530 REH immmummi 
540 CLS 12:CLS IhGOSUB 680:LOCATE 
63,2: PRINT US INS "llfjFl: 

550 0=ÍC.X -21 -.Y--"'.11 --S ■■ XL--54-.GOSUB 1 


70:IF ALFAÍ=" THEN 100:£ISE NONCII 
* (F* i J=ALF A* 

560 0=0:1=21:Y=4;II=X:X2=45:GOSUB 1 
70: IF ALFA1=” THEN 560:EISE DOHCLI 
KFI)=ALFA* 

570 0=0:1=56:V=4:I1=X:12=70:GOSUB 1 
70:IF ALFA*=** THEN 570:ELSE CIUCLI 
í(FI)=ALFA» 

530 0=0:(=21:Y=3:X1=X: X'2=a5:803U8 1 
70:IF ALFA$='" THEN 580:EISE BANCO* 
(FI)=ALFAÍ 

590 0=0:1=56:Y=8:11=1:I2=70:G0SU8 1 
70:IF ALFAS="* THEN 599:ELSE AGEHCI 
Ai(FI)=ALFAÍ 

600 0=0:1=21 :Y=I0:II=X:I2=45:G03UB 
170:IF AL.FAt= 1 “ THEN 6¡C:ELSE DOMBA 
Ní(F!l=ALFAí 

610 0=0:l=56:V=10:íl=(:!2=70:G8S , JB 

II? ' . !~r,. Mí 

62) ü=0:I=2!; =12:XI=1:12=45:6GSU6 
170: IF ALFA!--" THEN 620,'EISE CIABA 
«4!FI)=ALFAI 

630 F1=F1H:G0SUB 26C:CLS:CLS *2:60 
TO 540 
640 RETURN 

650 REH Jiummuimm 
660 REH H DIBUJAR FICHA »« 

670 REH mmunmmm 
680 LOCATE !0,2:PRIKT "NONBP.E 1 :LOCA 
TE 57,2:4R-,NT ‘FICHA NUB 1 :LOCATE 10 
,4¡PRIK'Í'30HICILI0'¡LOCATE 48,4:FRI 
NT *C1UDAD*i LOCATE 17,6:PRINT 'DATOS 
PARA LA DGHICILIACION ¡ANGARIA DEL 
RECIBO*¡LOCATE 10,8:PEINT"8ANC0 1 :L 
OCATE 43,3:PRINT "AGENCIA 1 
690 LOCATE 10,10:PRINT 1 DOKICIL10':L 
OCATE 48,10:PRINI "CIUDAD*:LOCATE 1 
0,!2:PRINT 'CTA, NO.' 

700 PLOT 56,399: DRAHR 520,0.-DRAHR 0 
,-211¡DRAHR -520,0:DRAHR 0,2I1:PLQT 
60,395:DRAHR 5I2,0:DRAHR 0,-203:DR 
AUR -512,0:DRAHR 0,203: 

710 PLOT 159, o 84: DRAHR 273 0: DRAHR 
0,-17:DPAUR -273,0:DRAHR 0,17: 

720 PLOT 535,304:DRAHR 25,G:DRAHR 0 
, -17: DRAVR -25,0:1)RAHR 0,17 
730 PLOT 159,352:DRAHR 202,0:DRAHR 
0,-17:DRAWR -202,0:DRAHR 0,17:PL0T 
439,352:DRAUR 122,0:DÍAHR 0,-17:DRA 
HR -122,0:DRAHR 0,17 
740 PLOT 159,288:DRAHR 202,0:DRAHR 
0,-17:DRAHR -202,0:DRAHR 0,17:PLOT 
439,288; DRAHR 122,0.-DRAHR 0,-17: DRA 
1 ‘ ’.Ll.iV.'I/AHf. 0 ,17 


750 PLOT 159,256:ÍSAUR 202,0:DRAUR 
0,-17:ORAWR -202,0:DRAHR 0,17:PLOT 
439,256:DRAHR 122,0:DRAUR 0,-17:DRA 
UP -122,0:DRAUS 0,17 
760 PLOT 159,224:DRAHR 202,0:DRAHR 
0,-17:DPAUR -202,0:DRAHR 0,17 
770 RETURN 

780 REH imtiiHHHHiiiH 
790 REH u CAR6AR FICHERO H 
800 REH muuiHiumiiH 
810 CLS 11:CLS 12:P?INT 15,'NOMBRE 
OEL FICHERO A CARGAR':0=2:X=30:Y=I; 
X1=X:X2=3B:60SUB 17O:N0H8REí=ALFAl: 
IF NOMBRE*-'' THEN 310 
820 H1=KOHBRE1*'.CLI':OPENIN Hí:INP 
UT I9,FI:F0R 1 = 1 TO Fl: INPUT I9,NCH 
Cl 11 (I), DOHCLI í (I), C1UCLI1 (I), BANCO 
t(I),AGENCIA*(I),D0H8ANÍ(I',CIU3ANÍ 
(I)jCTABAM*CI):NEXTiCLOSEIN 1 :GOSUB 2 
60:RETUíft 

330 REH uiiiinmmmm 
840 REH ii SALVAR FICHERO u 
850 REK iHiiiuiiinimm 
360 GOSUB 370.-CLS ll:CLS I2:PRINT t 
2,'NDHBRE DEL FICHERO A SALVAR':C=2 
:X=30:Y=1:X!=X:X2=38¡GOSUB 170:NCH8 
Rtl=ALFAi:IF NOMBRE! 1 '’ THEN 860 
370 HI=N0H.Bfi£li'. íLI':OPENOUT HS-.UR 
1TE S3,Fl:F0R !=1 TO FliHílTE I9,N0 
fICL lili), DOSCL: S ( :) ,C l'JCL :< (I), BAAÍ 
Oíd), AGE.'it I Al < J>, DDMEANNI,, CUJEAN 
i < I), CTA8ANÍ (i): NEXT:ll OSE0! T: GOSUÍ 
260:RETUF.N 

330 REH nmnuuummuu 
B30 REH ii HODIFICAR FICHERO u 
900 REH mimnuimmum 
910 GOSUB 370:CLS #1:CLS «2:PRINT 1 
2,'NUMERO DE FICHA QUE SE DESEA HOI 
1FICAR: ':0=2:X=42:Y=I:XI = X:X2=45:GC 
SUB 170: IF VALXALFA1K1 OR VALf ALF7 
DÍFI-l THEN 910 ELSE NUM=VAL(A1FA 1 
) 

320 CLS 12:GOSUB 680:LOCATE 68,2:PF 
INT US INS *m n ¡NUM: 

930 LOCATE 2 l,í ¡PRINT NOMCLIÍ(NUH): 
LOCATE 21,4:PRINT DOHíLIK’MilIh'JJCf 
TE 5£y 4.‘. P RINT CIUCLI*ÍÍJUÍI).-LOCATE 2 
1,3:FRINT BANCO*(NUM):LOCATE 56,3:F 
RINT AGENCIA*<NUMX:LOCATE 21, lOiPP.l 
NI DOMSANKNUM):LOCATE 56,10:PRI»T 
CIUBAN*(NUíl):LOCATE 2!,!2:PR1NT CTA 
BANÍ(NUH) 

940 LOCATE 4.2-.PRINT 'l':L0CATE 4,4 
:PRINT '2':LOCATE 4,3:PR1NT '3':L0C 
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ATE 4,lOiPRINT *4“:LOCATE 4,12;PRIK 
T "5":LOCATE 75,4:PRINT ‘6":LOCATE 
75,8:PRINT *7":LOCATE 75,!0:PRINT 1 

8 ' 

950 CLS #2:PSINT «2,'TECLEE EL NUHE 
ftO DEL CATO A MODIEICAR: ‘:o=2:X=40: 
Y=1:*1=X;X2=42:60SU8 170:IF ALFAS” 
■ THEN RETUSM ELSE IE VAL(ALFAS)<I 
OR VAL(ALFAS)>12 THEN 350 
360 ON VAL(alfat) 60SU8 380,930, 101 
0,1030,1050,1000,1020,1040 
970 8DSU8 260:RETUSN 
980 Q=(i: X=21: Y=2¡ X1=X¡ X2=70: G0SU8 1 
70: IF ALFAt=• ’ THEN 980:ELSE NQHCLI 
*;NUNi=ALFA4:60T0 1060 
990 0=0:X=21:Y-4:Xl-X: 72-45: S0SU8 1 
70:IP ALFA$=" THEN 930:ELSE DOMCLI 
*CNUÍ1>=ALFAt: GOTO 1060 
1000 0=0:X=56: Y=4: X1=X:X2=70:SaS'J8 
170:ir ALFAt=*' THEN 1000:ELSE CIUC 
LIS CNUT1)=ALrAS: SOTO 1060 
1010 0=0:X=21:Y=a:X1=X:X2=45:GOSUB 
170: IF ALEAS 3 ” THEN 1010:ELS£ 8ANC 
0S<NUN!=ALFAS;60T0 1060 
:H20 0=0:X=56:Y=8:X1=X:X2=70:GCSUB 
170: IE ALEAS 3 ” THEN 1020:EL3E AGEN 
CIAS ViVN)=ALEAS:GDTO 1060 
!030 0=0:'X--211TMO:XI--X-.72 =45 :G0SU3 
170: ir ALEAS=” THEN 103ÍHELSE DON 
SANSINIW) = ALE A S: ijfl F O 1060 
1040 0=0:X=56: Y=10:X1=X:X2=70:6GSU8 
170:IE ALTAS=■ * THEN 1040¡ELSE CIU 
BAN$(NUN)=ALFAS:GOTü 1060 
1050 Q=0:X=21:Y=I2:X!=X: X2=45:8Q3U8 

althen ioeoielse cta 

SANS < NUM)=ALFAS:GOTO 1060 
1060 CLS 82:PRINT 82,'DESEA HODIFIC 
AR OTRO OATO (S/N>:":o=2:X=35:Y=1:X 
l=«:T¡=36:G0SU8 170:IE ALEAS=‘N’ TH 
Eli PETUP.H ELSE IE ALEASES” GOTO 95 
O 

1070 REH MtmHiftimtiffiim 
1080 REM h ABANDONAR PROGRAMA m 
1090 RETI mimiiumiiiiiiHfi 
1100 CLS I1:CLS 12:PRINT 12,'ESTA S 
EGURG (S/N)':0=2;X=20:Y=1:X1=X:X2=2 
1:GQSU8 170:IE ALEA$='S" THEN GOTO 
1120 ELSE-IE ALFASO’N' THEN 1100 
1110 RETURN 

1120 CLS:CLS I2:CL5 tl:PRINT «1,CHR 
S<24)' SI EN ESIA EJECUCION SE HA C 
READO O MODIFICADO EL FICHERO OE CL 
1ENTES, DESERA HABERLO SALVADO EN 
DISCO ü DE LO CONTRARIO HACERLO AH 


ORA PARA NO PERDERL0'SPC(6>¡CHRS(24 
) 

1130 PRINT <2, ‘QUIERE SALVAR EL FIC 
HERO OE CLIENTES) (S/N):*:0=2:X=46: 
Y=1:X1=X:X2=47:GOSUB I70:1F ALFAS” 
S' THEN GOTO 860 6LS6 IF ALEA$=‘N' 
THEN 1150 
1140 RETURN 

1150 CLS 81:CLS 12:CLS:LOCATE 25,3: 
PRINT 'FINAL DEL PROGRAMA:• 

1160 LOCATE 28,6:PR¡I4T CKR$(24>;CHR 
S(150);STRING$(23,CHR$U54»);CKR$( t 
56)¡CHP.t(24)¡CHRS(24):LOCATE 28,7:P 
RINT CHRS(149)¡* IMPRESION OE RECIO 
OS '¡CHRS(143)¡LOCATE 28,8:PR1NT C 
HRS(147J ¡ 3IRINSS(23,CHRS(154))¡CHRS 
<153)¡CHRS(24) 

1170 LOCATE 28,10:PRINT "PROGRAMA O 
E JAVIER SARCIA'¡LOCATE 34,12:PRINT 
•MADRID - I98?':P10T 135,330:ORAKR 
241,0:DRAWR 0,-133:DRANR -24!,0:DR 
AHR 0,133.-PL0T 193,332: DRAWR 245,0: 
DRAWR O,-137:DRAWR. -245,0-.DRAHR 0,1 
37 

1180 LOCATE 33,15:PRINT CHR$(24)'P1) 
LSE UNA TECLA'CHR$(24):CALL RB818 
1130 HODE IsWINDON #6,1,40,1,2:WIND 
OH 1 ,40,3,25:PP.INT «6," '¡CHRS 
(1641;" SOFTWARE JAVIER GARCIA' 

1300 NEH 

1210 REM iiimiiimiimiiiii 
1220 REM H IHFRIMIR RECIBOS M 
1230 RED iiiniiiimmiimii 
1240 G0SU3 370:CLS ti:IF NGHBRES”' 
THEN 1240 ELSE PRINT 82,"DESEA CAR 
GAR FICHERO CORRESPONDIENTE A ' CHR 
S(34);NOMBRES CHRS(34);" (S/N»;' 

1250 0=2:X=57:Y=I:XI=X:X2=50:GOSUB 
170:IE ALFA$”S‘ THEN 60SÜB 1690:80 
TO 1320 

1260 CLSrCLS »1:CLS 12:PL0T 140,360 
:DRAWR 344,0:DRAWR 0,-136:DRAHR -34 
4,0:DRAWR 0,136:LOCAT£ 20,4:RRINT C 
HRt< 24)'VARIABLES COMUNES PARA IODO 
S LOS RECIB05"CHRS(24) 

1270 LOCATE 22,6:PRINT 'DATOS PARA 
LA"-.LOCATE 22,B,-PRINT 'IMPRESION DE 
LAS'¡LOCATE 22,10-.PRINT 'CABECERAS 

1280 PLOT 343,320:DRAWR !13,0:DPAHR 
0,-17:DRAUR -I13,0:DRA«R 0,17.-PL0T 
343,236:DRAHR 113,0:DRA«R 0,-17:DR 
AWR -113,0:DRAWR 0,l?:PL0T 343,256: 
DRAHR 113jO-.DRAWR 0,-17-.0RAHR -113, 


0: DRAUR 0,17 

1230 0=0:X=44:Y=6:X1=X:X2=57:60SU8 
170: IF ALFAS--” THEN 1290 ELSE CA0U 
NOS=ALF AS 

1300 0=0:1=44:1=8;11=1:12=57:GOSUB 
170: IE ALFAS=" THEN 1300 ELSE CABO 
OS$=ALFAS 

1310 0=0:X=44:Y=!0:X1=X:X2=57:80SUB 
170: IF ALFAS”" THEN 1310 ELSE CAB 
TRES$=ALFAS 
1320 GOSUB 2370 

1330 CLS «2:CLS t 1: PRINT I2,SPC(10) 
¡'QUIERE HACER UN 'CHRS124) 'LISTADO 
DE LOS RECI8DS"CHR$(24)” A IMPRIMI 
R (S/N):':0=2:X=68iY=l:Xl=X:X2=69:8 
0SU8 170:ir ALfAS='S' THEN GOTO 134 
O ELSE IF ALFAS”N‘ THEN GOTO 1370 
ELSE 1330 

1340 CLS 82:CLS 81:PRINT 82,SPC(I4) 
¡'LO DESEA VER POR PANTALLA O INPRE 
SOPA (P/I):" ¡0=2:1=60:1=1:11=1:12= 
61:GOSUB I70:CLS:IF ALFAS='P' IHEN 
C0MP=0 ELSE C0NP=8 
1350 GOSUB 2480 
1360 GOSUB 1930:CALL ABB13 
1370 CLS:CLS 82:CLS 81 ¡PRINT »2,SPC 
(14);'QUIERE OBTENER LA "CHR$(24)'r 
ACTURA PARA EL BANCO'CHRS(24 )' (S/N 
) : *:0=2:X=64:Y=I :X 1=1: X2=85:G0SU8 1 
70: IF ALFA$”S’ THEN GOTO 1380 ELSE 
IF ALFAS”N' THEN 6010 1400 ELSE 6 
CIO 1370 

1380 CLS 82:CLS 81:PRINT 82,SPC(14) 

;"LO DESEA VER POR PANTALLA O INPRE 
SOPA ÍP/I):' :0=2:1=60:1=1:11=1:12= 
61 ¡GOSUB 170:IF ALFA$='P' THEN CDNP 
=0 ELSE IF ALFAS”!" THEN C0NP=8 EL 
SE SOTO 1380 

1390 CLS : GOSUB 2I4C>:CALL &BB18 
1400 CLS:CLS »2:CLS tl:PRINT 82,SPC 
( 10); "QUIERE HACER 'CHRS ( 24)'UNA PR 
UEBA"CHRS (24)" PARA CENTRAR EL PAPE 
L (S/N) : ' :0=2:1=64:1=1:11=1:12=65: G 
0SU8 170: IF ALFAS="S‘ THEN SDSUB 17 
70 ELSE IF ALFA$”N‘ THEN GOTO 1410 
a SE GOTO 1400 
1410 TOTAL--0 
1420 FOR 1=1 10 TA 
1430 SUP=NUHERO(T):PRINT 88,SPC(5)¡ 
CABUNOS;SPC(17-LEN(CABUNOS) ); COLEGI 
*¡ 

1440 IF SUPÍIO THEN PRINT 88,*0000" 
¡USING ’8"¡SUP¡ 

1450 IF SUP>=10 ANO SUPdOO IHEN PR 


INT 88,'000";USING 'H'jSUP; 

1460 IF SUP>=100 AND SUPdOOO THEN 
PRINT 88, ’OO'iUSING "I8*';SUP; 

1470 IF SUPTMOOO AND SUPdOOOO THE 
N PRINT 88,*0*;US IMG ’»I8I'¡SUP¡ 
1480 PRINT 8B,SPC(17);LOCALIS¡SPC(1 
8-LENILOCALIS))¡ 

1490 TOTAL=TOTAL*HONORA(T)KHONORAI 
T)HVA(T)/100)dRANS(T)-(HQN0RA(T)« 
DESC(T)/100): 

1500 PRINT »8,USIN6 "««tiltil* ;TOTA 
L¡:FSíNI 42, 

1510 PRINT I3,SFC(5)¡CABD03I: 

1520 PRINT ia,SPC(5l;CABTÍ£SS;SPC(l 
7-LEN(CA3TRE3S))¡DS¡' OE ";«ES15¡" 
DE I9”¡T£ARS¡3PC(20)¡ "A LA VISTA' 
1530 PRINT I3-.PÍINT 83-,PRINT 18,SPC 
(5);" POR EL CONCEPTO CORRESPONDI 
ENTE A NTRA. FRA. Nro.:"¡COLEGÍS; 
1540 IF SUPLIO THEN PRINT 83,'0000' 
¡USING '8’jsUP 

1550 IF SUP)=10 ANO SU°<100 THEN PR 
INT 88,"000'¡USING "8I";SUP; 

1560 IF SUP)=100 AND SUPdOOO THEN 
PRINT 83, "00"¡USING ’tlI’iSU?-, 

1570 IF SUP)=1000 AND SUPdOOOO THE 
N PRINT 13,"O*¡USIÍ1G 'tm';3UP¡ 

1580 PRINT IB:PRINT 48 .ÍBCCTJ ¡CO IC 
EPS(T)-. 

1530 TOTAL=0 
1600 PRINT 13-,PRINT 88 
1610 I=CQD(T):FSIÍIT 18,SPC(15)¡BAWC 
OS d)-,SPC!25-(LEN (BANCOS (I )))).-,■ AGE 
NCIA: "¡AGENCIAS!I)¡SPC(6-(LEN(AGEN 
CIASd))))¡"CTA.: ';CTABANtCI):PRIN 
T 18,SPC( 15)¡OOMBANS! I)¡SPC(25-(LEW 
(DOMBANttI))));CIU8AWS TI) 

1620 PP.INT 88¡PRINT I8:PRI‘,iT 18,SPC 
(21);CLIS(T):PR1NT 83,SPC(21)¡’C/ ' 
¡DDNCLI$(CODlT)):PR!NT I8,5FC(21);C 
IUCLIS(COD(F)) 

1630 POR k=l TO 7:PRINT I8:NEXT 
1640 NEIt 

1650 GOSUB 260:GOTO 100 
1660 REH iiiimiiiiiDiimiH 
1670 REH *t CARGAR FICHERD-2 if 
1680 REM iiiiimitiwmiiiii 
1690 HS=N0NBRE$^.FI2':DFENIN HS:IN 
PUT 83,CABUNOS,CABDQSt,CABTRESS:CLO 
SEIN:RETURN 

1700 REH tmmmmumm» 

1710 REH H SALVAR FICHERO-2 M 
1720 REH IHIIHIHHHHHIIH 
1730 HS--NOMBRES+" f 12'-OPENOUT HS-."» 









22 AMSTHAl) Pmoml 



























ES MUY 
ACONSEJABLE 
DISPONER DE 
UNA IMPRESORA 
PARA EXPLOTAR 
EL PROGRAMA 
AL MÁXIMO. 



RITE 13, CASUNQt, CABDOS*, CABT?.=: S :CL 
QSEOUT:ftETURN 

1740 REH HIHHHItlHHHHIHHI 
Hit* 

1750 REH ti IHPRIHIR RECIBO DE PRUE 
8A ** 

1760 REN IIHIIHHHHIIIHIHHH 
HUI 

1770 CLS #2:PR1NT #2,SPCCIO);"CUASD 
0 CREA TENER CENTRADO EL PAFEL PULS 
E UNA TECLA':CALL 18818 
1780 PR1NT 13,3fC(5)¡’ALHAOENES 

2000-00001 nacr 

10 1*128000,-' 

1790 PR1NT *8,SPCC5); 'TOD0CAP.0* 

1300 PRINT I3,SPC(5)j'CIF.28999999 
30 DE NOVIEMBRE DE 1987 
A LA VISTA' 

1810 PRINT 18:PRINT »8:F51NT «3,3PC 
(5);'POR EL SIGUIENTE CONCEPTO QUE 
CORRESPONDE A NTFA. FRA. Nro.:2S280 
0001 ' 

1320 PRir «3.-PFÍNT 83,SPCf35)¡*C0“ 
PRA CE 'JNA TONELADA DE AIRE EXP.V.AD 
0 AL VAC 10 ' 

1830 PRINT 13:PRINT I0:PRINT $3,SPC 
(15)¡’C.A.H.P.H. AGEN 

CIA: 3999 CTA,: 93939* 

1840 PRINT iB.SPCCIS'J; 'ENTRAS!TEDEJ 
AN,223 28029-NADRID' 

1850 PRINT 88:PRINT «S:PR1NT 83,SPC 
(21)¡■-FEDERICO MARTIN MARTINEZ' 

1860 PRINT I8,SPC(Í1);"C/SALSIPUEDE 
S,116' 

1870 PRINT IB,SPC(21)¡'28029-NADRID 

1880 F0R k=l T0 7:PR1NT I8:NEXT 
1890 CLS »2:PR!NT I2,SPC(10!;'DESEA 
OTRA PRUEBA <S/N1:':0=2:X=35:Y= 1:1 
l=U2=36:G0SUB 170:IF ALFA$=’S' TH 
EN 1770 ELSE CLS 12:RETURN 
1900 REÍ1 HfHtHHHHHIHHHHt 

IHfltt 

1910 RE.1 H IMPRIMIR LISTADO DE REC 
1303 if 

1920 REN tm ii 11 mi iii mu mi ii 

mili* 

1930 SOSUB 370 

1340 PRINT ICOMP,CABUNOt; 1 '¡CABDOS 

$ 

1950 PRINT tCDMP,CABTRESÍ 

1960 PRINT ICOMP¡PRINT ICONP,SPC(10 

)¡’RELAC!DN DE RECIBOS EMITIDOS EL 


‘;D$;' OE '¡MES1*¡' DE 13'jYEAfit 
1970 PRINT IC0NP,SPC(10)¡STR1N8((42 
tLENIDJiNESltiTEARÍ),'-') 

1980 PRINT ICOMPiPRINT *COMP:PRINT 
ICOMP,'NOMBRE DEL GUIENTE*;SPCC33)¡ 
•LIQUIDO IVA TOTAL * 

1390 PRINT ICOMP,STRINSt<aO,'-')-.PR 
INI ICOMP 

2000 POR t=l TO ta: T0TAL=0:TOTHONO 
=0:TC7IVA=0 

2010 TQTAL=TOTAL+HDNORA(t)t(HDNORA( 
T) HVA<T)/100) tTRANS(T)-(HONORA(T) * 
DESC(T)/)00) 

2020 TOTHONO=TOTHONOlHONOPA(T)*TRAN 
S CT) -(HONORA(T)iDESCCT)/100):TQTIVA 
=TOT1VA*(HONORA(T)*IVA(1)7100) 

2030 PRINT ICDNP,CLIJ(T);SPC(jO-LEN 
(CL11<T)))¡USING ■|*l#llll*¡TOTHONO 
;.-PRINT #C0«P,SPC(2);USINS '1111111 
• ’;TOTIVA¡:PRINT ICOMP,5PCC3);USING 
•m*»»H‘¡T0TAL 

20-10 TOTA=TOTA*TOTAL:TOTALHONO=TOTA 
LHONO+TOTHONÜ:TOTAL!VA=TOTAllVAiTOT 
IVA 

2050 NEXT 

2060 PRINT ICOMP:PRINT ICOMP.STRINS 
$(80,'-") 

2070 PRINT ICOMP.SPCCIO);'IMPORTE T 
Ofnl '; STRIN5$(26, '); US INC 'HUI 
MI'jTOTALHOaOj :PR5NT IC0HP,SPC(2); 
USING ■t*mi#l'¡TOTALIVA;¡PRINT IC 
0HP,SPC(3);USING '1111lili*,'TOTA 
2080 TOTA=0¡TOTALIVA=0:TOTALHONO =0 
2090 PRINT ICCMP,STRINSt(80,'-*) 
2100 PRINT IC2MP:PRINT »CCtl°,SPC(40 
);LOCAL!S;”, a '¡D$;' Je ';MES 1f; 
de 19’;YEAP$:RETURN 
2110 REN HHHHHIIHIHIHIHHI 
111*11 

2120 REN h INPRINIR RENESA PARA BA 
NCO *1 

2130 REN HHHiiiiiitmmiHHH 
mui 

2140 60SU8 370 

2150 PRINT ICOMP,CABUNOt;' '¡CASOOS 

$ 

2160 PRINT ICOMP,CABTRESt 
2170 PRINT ICOMP."PRINT ICOMP, SPCC10 
);'REMESA CORRESPONDIENTE AL DIA 
D$¡' DE '¡NE31S;' DE 19';YEAR$ 

2180 PRINT ICOHP,SPC(10);STR1NG$(40 
*L£N(0$iNESl$tYEAR$),'-') 

2130 PRINT ICOMP:PRINT ICOMPiPRINT 


ICOMP, 'HOMBRE DEL CLIENTE*¡SPCU2)J 
•BANCO A6ENCIA 

IMPORTE* 

2200 PRINT ICONP,STRINSt(80,■-*):PR 
¡NT ICOfÍP 

2210 FCR 1=1 TO TA 

2220 PRINT ICONP ,CLI$(T) ',SPC(30-LEN 

(CLI$(T)))¡ 

2230 l=C0D(T):PRINT ICOMP,BANCOt(I) 

¡ STRINSt(20-L6N(BANC0$( I)), 1 *)1A6E 
NCIA$(I)¡STRIN6$(20-L£N(AGENCIA$(I) 
),' *)¡SPC(1)¡USINS '88IIMII”¡HOND 
RA(T)*(H0N0RA(T)itVA(T)/100)iTRANS( 
T)-(HON3RA(T)*DESC(T)/100) 

2240 TOTA=TOTAiHONORA(T)*(HONORA(T) 
i|VA(T)/100)*TRAN5(T)-(H0N0RA(T)*DE 
SC(T)/tOO) 

2250 NEXT T 

2280 PRINT ICOHP:PRINT ICONP,STRING 
t(80,'-*) 

2270 PRINT ICONP,SPC(10>i‘IMPORTE T 
OTAL ";STRINSt(47,'.’);USIN6 '11111 
II**;TOTA 
2280 TOTA-4 

2230 PRINT ICONP,STRIN&t(BO,'-') 

2300 PRINT ICOMP:PRINT ICONP,SPCI40 

¡¡LOCAL»;', a ‘¡DI; 1 de ';NESlt¡' 

de 19'¡YEARt:R£TURN 

2310 REN miHiimiiHHiiHHiH 

tmiHIHIHlllHllH 

2320 REN ** RUTINA FECHA,LOCALIDAD 

Y CODIGO NUMERACION » 

2330 P.EN iHiHHimtiiHHimHi 
imitiiiiiimtiiiii* 

2340 CLS:CLS fl.-CLS I2:PL0T 140,360 
:DRAUS 344,0:DRAWR 0,-136:DRANS -34 
4,0:DRANR (i, 136:L0CATE 20,4:PRINT C 
HRt("24)'VARIABLES COMUNES PATA TODO 
S LOS RECI SOS"CKRt(24) 

23SO LOCATE 22 ¿-.PRINT "PECHA (DDNN 
AA)':L0CATE 22,8:PRINT •LOCALIDAD’: 
LOCATE 22,10¡PRINT 'CODIGO NUMERACI 
ON' 

2260 PLOT 264:DRANR 57, 0." DRANR 
0,-17:DPAMR -57,0:DRANR 0,!7:PL0T 3 
67, 288:DRANR 39,0:CRAHR D,-17:DRAHR 
-83,0:DRAUS 0,17:PL0T 415,256:0RAN 
R 41,0:BMW C, 17:CSAHR -41,0:DRAH 
R 0,1? 

2370 CL3:CLS íl:L_S 42:PLOT 140,360 
¡DRANR 344,D".DP.HJR 0 ,-12£".DRA'S -34 
4,0:DRAUS 0,136:IOCATE 20,4:PP1NT C 
HRt(24)'VARIABLES COMUNES PARA TODO 


S LOS RECIBOS"CHRt(24) 

2380 LOCATE 22,S:PR1NT ‘PECHA: (DD 
NHAA)“:LOCATE 22,B:PR1NT 'LOCALIDAD 
¡•¡LOCATE 22,10:PRINT ‘CODIGO PAPA 
NUMERACION:* 

2390 PLOT 393,320:DRAWR 57,0:DRANR 
0,-17:DRAHR -57,0:DRANR 0,17:PL0T 3 
G7,233:DRAWR 39,0:DRANR 0,-17:DRAHR 
-89,0:DRANR 0,17¡PLDT 415,256:DRAN 
R 41,0:DRANR O,-17:0RAHR -41,0:DRAW 
R 0,17 

2400 0=0:1=51:Y=6:11=1:12=57:G0SU8 
170:IP ALF At=* * OR LEN(ALPA$)(S THE 
N 2400 ELSE F»’ALFM-.dt-J¿ritMt ,D 
: YEARI =RIGHT I (f t, 2): N0N$=N 1 D t (f t, 3 , 
2) 

2410 IF Dt>’31' OR NDN$>"12‘ OR Dt< 
•01’ OR MOMtd'Ol* THEN 2400 ELSE NE 
S»=N$(VAL(NDN$)) 

2420 0=0:X=47:Y=8:X1=X:X2=57:GOSUB 
170:IF ALFAt=” THEN 24'' ELSE LOCA 
LIt=ALF At 

2430 0=0:X=53:Y=10:X1=X:X2=57:GDSUB 
170:IF ALFAt=*’ THEN 2430 ELSE COL 
EG»=ALFA$ 

2440 RETURN 

2450 REN 11***111 IIHHHHHH 
2460 REN ii CARSAR FICHERO-3 ** 

2470 REN iiimimiHHiiiim 
2480 H$=N0NBRE$i , .FI4 , ;0PENIN Ht:IN 
PUT 19,TA:FOR T=1 TO TA:INPUT 19,CD 
D(T),NUHERO(T),CL11(T),CONCEPt(T >,H 
ONDRA(T) ,IVA(T),TRANSI»,DESCITUNE 
IT:CLOSEIN:RETURN 
2490 REN miHiHimiHmm 
2500 REN ii BORRAR FICHERO-3 ** 

2510 REN iHiiiHHlimiiiim 
2 5 30 H$--N0NBRE$f FH’-.'ERA ,'Hf 
2530 REN *«11111111*1111 
2540 REN i* ABANDONAR ** 

2550 REN HHHH1HHII 
2560 CLS 12:CLS ll:CLS: 

2570 PRINT II,STRIN6K26,'=');' SUB 
NENU VSTRIN6K35, '='),".-PRINT ti,' 
1.PROGRANA FACTURAS 2.PR0GRA 
HA CONTABILIDAD 3.ABANDONAR OPC 
ION *:PRINT 11,STRINGt(80,’=■): 

2580 GDSUB 320:0N C GOTO 2600,2610, 
1100 

2590 GOTO 2560 
2600 RON 'FACTURAS' 

2610 RUN 'C0NTA8IL' 



Todos tos listada qua 
incluyan asta logotipo 
so encuentran a su 
disposición en disco. 
Soficilenoílo. 
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t Cargador 


En él número 100 de AMSTRar» c / 

pensad^aS de pubIicar westiowogramTc^ ^ 13, tuvimos la 

Parür de ^S^^ lo en ,? en S^& De fe* 

ocurre 1 en ^^^^Otro^aino 19 

su tecleo a aquellos lectores que f" W ' por lo W, Para Star 

tnstmccSne?de V °ma e rS°o S potdemlleiSH 0 ^? “ 

propio CargaSor ' mciuyen dentr ° del 


lí REA CAR6A00R ONIVERSAL 
I 20 REA 5/6/87 
30 RER DANIEL CALVO 

I JO^RERORV 62FFF10EFIRT A-21SPEE0 VR 

I Í°, 6 n°„ SI ' 6 ll50:fiE " CODIGO AA«0INA 
I 60 «OOE l:I«K 0,0:1NX I.26.-ÍNK 2 U 

1 ¡mu.immkro ■ 

: 7 ? L0MÍE 'Í.S.-PRINT *1.- INIR0DÜCI 

| 80 LOCATE I2,7:PRIRT *2.- LISTADOS' 

3U0CATEI2, 3 :PR,n T '3.- SALVaÍTbi 

i >00,LOCATE I2,I1:PR,nt '4.- SALVAR 

UUDCATE 12,13:PRIRT '5, CAR6AR 

“ E IZ ' 15:PS "' T ‘i-- CAR6AR 

130 LOCATE I4,20:PR1NT 'ELIGE 0PCI0 

UU»=INKr» :, F Nl=” TREN 140 ELS 
[ 4 ' p ísc <K»)<« 0R ASCIH054 TREN 

'Sf*™ SOm 120,440,610,66 
160 6010 60 

170 IF N0VO0 TREN 200 

Wr’"®™** 

THcVit,A E6,l,< ' 327f8 08 8E6INJ32767 

™ E " * e r ° ELSE " m '*sooo:lotw:aot=i 

í mu i? 1 ?? 

2 •'VÍNODR 2 i in * 1:WINDGW 1,NO,2 

:w SSc2« l0,25 ' 2í!Nra ’ 2 ' 2 

SiIrV" 1 ^ ,I ' TÍ8(ltl, ' l)flr 0S'TAB(32)' 

220 PL0T 448,I6,3:0RAVR 0,366:L=I 
230 LOCATE U.'PRINT 0SIN6 'm- su 
2¡:MfHT ' ',A»:IF AH" TREN REtÍr 
nVaT fl * =UPPE:Rt(ft *3- , l-0MTE 5,L:PRI 
240 CHEOÍSOR-O 

250 IF LENIA4T024 TREN PRINT , 2 Tí 

¡«ÍTÜSÍ™ E8flON£fl ';«*(7t:íoc 

l'C'PfiíNT SPACE$(40):PL0r iid I 

■PmT A H^nrn 6 ¡ m 7=1 70 500:NE * r 

.rfiJNI #2.GOTO 230 


260 F0R 1=1 ro 24 ¡P<=RIDJía» | n 

a ” 0(P<< '°" 06 áW <P«* 
® PD'F'J TREN 60S08 410 

mJmJÍ ™, 2) '° 7HEN C « E »KH 

23MeÍt 

300 LOCATE 32,L:INP0T ‘)\CHECNI'IF 
CHE««=" TREN CHECR.-0' E SE 

S^ ,c ^ M:uw,t33 *«“ 

320 IF (PK'O* 0R PJJ'S') 

A' 0R PIT'F'T TREN PRINT t j M6(7) , 
CARACTERES NO HEJA0 ECIHALE$'íCHR»( 7 
1.F0R T=l T0 SOOlNEITiLOCATF 3? i.p 

330 NE S n CE$(8,:f>fi " ,r ,:,;S(,T0 308 
340 CHECK=VAL('4'+CRECX*)•ÍF CHFfr/ 
ICHECNSOR THEN PRINT 42, TARI 13)'sor 
AINC0RRECTA'iCHR«(7 ); fpt 9 

60T0 230 ' °' M:Pm ,¡! 

350 F0R 1=1 T0 24 STEP 2 

380 8rrEíVflE( '‘''«IlJ4(AU l 2)) 

370 PONE 

380 NEIT 
330 A0T=A0TH 

TsE 230 : ' f 1=24 " B CLS '' 60T0 220 

CHRI(24) T E 7t 4'L;PR,NT CHRJ(24);pj; 

420 N4=INNEI4;IF N<=" THEN m 
430 IF (ttco* OR Kt>'$‘) m m< . 

A 0R «>'F') TREN 420 ELSE LOCATE 

440 RER LISTADOS 
450 IF N0V=0 TREN RETORN 
460 CLS:LOCATE 6,11 .'PRINT ■r = ..p F i í 

M!"?'"** n p ^'IA nIÁlm 

o 1 i.PEN 3:PR[RT '('¡¡per ¡•pprijr 

'iapresora- 1,PSINr 

470 KHIPPERt(mcW:iF «=" ™ v 
0T «»-'' OR KJ='l'j tÍer ’ 0fi * 

480 IF B=*r TREN CR=8 ELSE CR=Í 
30 UN=l:CLS:PRINT »CH,'DIRECCION 


KC0R1EN20..'¡HEH(8E6IN,4):PR1NT 

500 FOR 1=65000 TO NOV-I STEP I? 

“lísr''"'" 51 '*’" 1 

520 FOR y=0 TO li ’ 

530 PRINT ACH,HEWP££KU*y, i2) . 

¡¡¡¡""ommi.» 

SSSm , ‘ , ‘ 

580 NEIT 

530 PRINT ‘PDLSA ORA TECLA' 

500 mu INKEr4=":VEND;RE T URN 
610 RER SALVAR EN BINARIO 
620 IF NDV=0 THEN RETORN 

a°pS C 5 r N0R; ,WNP " T '™ SRE0 

640 SAVE N0N(,8,!5000,LDN 
550 RETORN 

660 RER SALVAR EN BASIC 
670 IF N0IW) TREN RETORN 

' mm¡! 

630 UN=200 
700 OPENOUT NON» 

W PRINT 13,'10 RER PR06RARA CARGA 

i 2 ! 1 3 / 20 ™ *=í-;he»(begi 

STEP 12' 'AEI*(B e GIN»L0N-1,4)| ■ 

hS=o 7 ' ,V30REWL ' m ' che «»-' e 

740 PRINT 43,*40 FOR y., T0 24 STEP 

BÍTE,ML(,t *»(34 
' 1 CNfl,( 34)*'*RID»(LINÍ,y ; 2))- 
™¡. mi * ?/6í ONECNSOR'CHECNSOR* 

770 PfiINr *3/70 PONE W/2,BVTE' 

780 PRINT 49,'80 NEIT' 

7 chr« P ?LhÍiV 30 IF « E «S0NOVAL(' 
KHR»(34)t i +CHR4(34)+'+CNECN4) Tu 

' ,a,R X34).'ERR0R> tC HfiJ(34 

800 PRINT 49/100 REIDERO' 

?!? ™ 4=«000 TO NOV-1 STEP 12 
0flrfl H - CKSy "‘ 0:FftíNr #9 ' ST «*<UKJí- 


830 FDR y=0 TO II 
840 PRINT »3,HEI4(P£EN(M),2); 
g| 0 ° W«SOR=CHECNSl(R.PEEN( M) 

8»o ur=ur*io:neit 

890 CLOSEDOT:RETORN 
900 RER CARGAR EN BINARIO 

EL (> FICR S F» L n 0C ? T Í 6 ' l(): "' m ' NWfiE 

¡if2” S , iT HfPm(im 

mo ' tm 
1N,íLDW. WDy=i5000+L GN 
930 ADT=INT(L0N/|2)+1 
940 RETORN 

950 RER CARGAR EN BASIC 

el'fimÉro^'morVa^ÍT 7 ' mm ° 

970 OPENIN NON» 

980 LINE INPOT 49, A» 

t.8t6IN-VAL('4'*RlD4(aj ... 

««00 MW5000:LDR.V " ’ 

1010 VHILE i nstr ( a.,-neit:erd , , = o 

1020 UNE INPIIT 49 A4 
1030 VERO 

1040 «HILE NOT EOF 
1050 LINE INPOT 49 A* 

1060 A=INSTR(A4,'0ATA'):A=A*s 
■070 0AT04-RI0KAM 24 
1080 FOR 1=1 TO 24 STEP 2 

ón-i ^■«alí'I'wdmdato.,; 

2)).C0N=L0N<I:R0V=N0V*1 

1100 NEIT 
1110 A0T=A0T*1 
1120 VENO 
H30 CLOSEIN 
1140 RETORN 
1150 RER c/fl 

1160 FOR I=63000 TO 13032 

1S3S? 

l* 8 ? 00,6£,00,DO,66,OI ES 00 6 

1200 OATA £8,47,11,70,30,00,77 8CE 

«i dC.CO ,7^,80,09 
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Super EGA 

Una de las cosas que más feliz 
pueden hacer a un aficionado a 
los gráficos, si tiene un 
compatible IBM, es una tarjeta 
EGA corno la que aparece en la 
fotografía. 



La Super EGA, de Genoa 
Systems Corporation, está 
pensada para utilizarla en gráficos 


que necesiten alta resolución. Se 
puede introducir en 
microprocesadores cuya unidad 
central actúe a una velocidad 
comprendida entre los 4,77 y los 
16 MHz. Es decir, en todos los 
microprocesadores de la gama 
Intel, desde el 8088 al 80386, 
entre las que está incluido el 
Amstrad PC ¡512. 

Con la tarjeta va incluido, en 
dos discos, un software específico 
de aplicaciones. Estos programas 
(AutoCad, Gem, Windows, Lotus, 
FrameWork II y Ventura 
Publisher) aprovechan las 
posibilidades de la EGA. Así le 
podremos introducir gráficos en 
color dentro de los textos y 
aprovechar al máximo las 
posibilidades del ordenador en 
cuanto a temas como la 
autoedición. 

Esta tarjeta se puede comprar 
en Micro 1, que se encuentra en 
la calle Duque de Sexto, 50, de 
Madrid. Tel.: (91) 409 61 36. Su 
precio es de 33.900 pesetas. 


Discos 
con color 

Para las personas que usan el 
ordenador diariamente, ordenar 
los datos en los discos puede 
convertirse en un problema. 

Una de las soluciones más 
sencillas puede ser comprar estos 

discos de 
colores 
que 

aparecen 
en la 
fotografía, 
y colocar 
las cosas 
según el 


color de cada uno de ellos. 

Además, un poco de colorido 
siempre alegra la vista, aunque 
sea en cosas tan poco alegres, 
para algunos, como el trabajo. 

Los discos Sctinel de 5 1/4” 
son para compatibles IBM PCs, 
los Amstrad PC, por ejemplo. 
Pueden ser de simple o doble 
cara, de simple o doble densidad. 

Organización lógica o física del 
sector, y la posibilidad de adquirir 
soportes ya formateados. 

La presentación puede ser en caja 
de cartón o de plástico con 10 
unidades en amba.-> posibilidades. 
Su precio oscila alrededor de 200 
pesetas la unidad, según las 
características elegidas. 

Para más información 
dirigirse a Enfa Ibérica. 

Tel.: (91) 672 72 11. 





impresora 

la suya 


Las cintas son imprescindibles 
para imprimir en papel el 
resultado del trabajo frente al 
ordenador. 

Pero no cualquier cinta sirve 
para cualquier impresora. 

Cada una de ellas tiene 
sus propias características 
y, en general, no se pueden 
intercambiar. 

Para que no se tenga ningún 
problema a la hora de elegir, en 
Micro 1 se pueden encontrar un 


No pierdas 
los papeles 


Las impresoras, entre otras 


y su 


\ 


cosas, necesitan papel para poder 
cumplir su cometido. Pero si no 
se pone la impresora 
papel es un soporte 
adecuado, la 
habitación puede 
acabar inundada de 
papel y, lo que es peor, 
los documentos 
importantes terminarán 
imprimiéndose en papeles 
sucios que han rodado por el 
suelo. 

Para evitar estos inconvenientes 
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gran surtido de cintas para las 
impresoras que utilizan los 
Amstrad. La de la DMP 3000 
845, y lo mismo la de la DPM 
2000 . 

Micro 1 está en la calle Duque 
de Sexto, 50, de Madrid. 

Tel.: (91) 409 61 36. 


No dejes 
de disparar 

Los joystick son uno de los 
elementos indispensables para 
todos aquellos que se vuelven 
locos de felicidad ante un buen 
juego de «matar marcianos». 

El que os presentamos en esta 
ocasión se puede encontrar en 
Micro I, situado en la calle 
Duque de Sexto, 50, de Madrid. 
Tel.: (91) 409 61 36. 

Su precio de venta al público es 
de 3.000 pesetas. 

Computer Joystick tiene una 
característica muy especial: al 
solta el maído vuelve solo al 
centro, y se puede maniobrar en 
una circunferencia completa, 360 
grados, es decir en todas las 
direcciones, con lo que podemos 
disputar déla'intensidad dd juego 




Mousepad es una alfombrilla 
muy útil para sacar todo el 
partido posible al ratón del PC. 

Este cuadrado de felpa facilita 
la movilidad de la bola, su 
correcto dircccionamicnto, y evita 
que resbale, con todos los 
inconvenientes que esto puede 
acarrear. 

Además podremos conservarlo 
limpio por más tiempo. 

Mousepad se puede comprar en 
Micro 1, a 995 pesetas. Micro 1 
está en la calle Duque de Sexto, 
50, tel.: (91) 409 61 36. 


se han inventado los 
soportes de impresoras, con 
espacios para el papel. Los 
dos que se ven en las 
fotografías son de Enfa Ibérica 
y cualquiera de ellos puede ser 
una buena solución. El de la 
izquierda está fabricado en 
plcxigas puro, con modelos para 
tres tamaños de impresoras. Su 
precio es de 7.500 pesetas. El de 
la derecha, Space, es un soporte 
de impresora realizado en el 
mismo material del anterior y 
también con tres tamaños 
diferentes, pero con un accesorio 
que recoge en papel ya impreso. 
Su precio es de 12.500 pesetas. 

Para más información 
dirigirse a Enfa Ibérica. 

Tel.: (91) 672 72 11. 


Una alfombra 
para su ratón 



sin preocupaciones de los 
movimientos bruscos o los 
ángulos imposibles en otros 
periféricos de este tipo. Todo eso 
Todo eso sin parar de disparar 
a nuestros enemigos . 



Alargador para 
el CPC 464 

Uno de los principales 
problemas de los Amstrad CPC, y 
especialmente del 464, es la escasa 
longitud de los cables que unen el 
monitor al teclado. 

A simple vista esto puede 
parecer un inconveniente sin 
importancia. Pero a medida que 
se empieza a utilizar el ordenador, 
uno se da cuenta de lo incómodo, 
que realmente puede llegar a ser. 

Para paliarlo, se venden unos 
alargadores. El que podemos 
encontrar en Micro 1 
(Duque de Sexto, 50. Madrid. 
Tel.: (91) 409 61 36 tiene una 
longitud de un metro y medio. Su 
precio es de 1.045 pesetas. 
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¡QUE SALGA EL SOL POR DONDE QUIERA! 
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S e juega con una baraja 
española de 40 naipes. Se 
ponen cuatro naipes en la 
mesa, cuidando que no se repita 
el número de alguna de las 
cartas, y se reparten tres más a 
cada jugador. Sale siempre el 
ordenador. Cuando se jueguen 
esas cartas, se reparten otras tres 
hasta que se acabe el mazo. El 
mensaje de «Las 40» indica que 
es la última mano. A los puntos 
conseguidos por el jugador que 
más cartas tenga cada vez que se 
termine el mazo se sumará la 
diferencia entre el número de 
cartas recogidas y 20 (si hemos 
recogido 24 cartas nos sumamos 
4). Se vuelve a barajar y a 


repetir toda esta operación hasta 
que alguno de los dos jugadores 
alcance 40 puntos. Las cartas que 
quedan en la mesa cada vez que se 
termina el mazo, son para el 
último que haya recogido algo. 

Las cartas se cogen de la 
siguiente forma: 

— Si entre sus cartas hay 
alguna de igual número a alguna 
de la mesa, se coge ésa y todas 
las correlativas que se puedan. 

— Si ninguna coincide en 
número con las de la mesa, se 
debe tirar una, sin recoger. 

— Si tiramos una carta sin 
recoger y el otro jugador la recoge, 
es un cao y se paga dos puntos. 

— Si algún jugador tiene dos 


cartas del mismo número es una 
ronda y vale un punto. 

— Si los dos jugadores tienen 
ronda, al terminar cada mano se 
le pagan dos puntos al que la 
tenga más alta. 

— Si se recogen todas las 
cartas de la mesa se hace 
«mesa» y se paga un punto. 

La pantalla de juego está 
dividida en tres partes. En la 
parte superior hay una ventana 
con las cartas de la mesa, en la 
parte inferior izquierda están 
nuestras cartas y la tecla que hay 
que pulsar a la hora de jugarlas, 
y en el lado inferior derecho hay 
una ventana informativa que 
hace las veces de croupier. 


Para los amantes de la baraja , en 
esta ocasión publicamos una si¬ 
mulación del conocido juego del 
Cao, con el que se pueden 

pasar unas 
horas entre¬ 
tenidas ma¬ 
no a mano 
con el orde¬ 
nador ; sin 
necesidad 
de ponemos 
de acuerdo 
con alguien 
para jugar 
una partida 
de naipes . 


Por Víctor Javier Fernández Gil 
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SERIE ORO 


10 'tiiiitiiiiifiitttittiiti 

20 '» CM t 

30 '* VJFG en 10/87 i 
40 'mitmmfifiKimm 
50 • 

60 »- 

70 'PRESENTACION 

80 '- 

80 0N ERROR SOTO 3950 

100 SYMBOL AFTER QifWE 0, (HMENHMhTÍ 

(HIBEH+1 )/25S) «256: P0KF l,IKI((HIHEHM)/ 

255) 

110 FOR A*1 TO 30;CALL ;BC4D:HEIT 
120 HODE 1:CALL DBC02:P0í£ 180££,ÍC9 
130 IKK 3,1:PEK 3:L0CAT£ 1,2S:PRIKT*CA0* 
¡:F0S a=0 10 46 STEP 2:fOR 0=3 TO 14;IF 
T£ST(a,b)=3 THE* PLOT -100,-100,1:*0VE ( 
<a*48)181/2,(b>2H8:TA6:PRINT CHRS(133)C 
HR1(219>¡ 

140 HEIT b,a:TAGOFF:LOCATE 1,2S:PR(HT SP 
ACE*(7):F0R i«l [0 13:CALL 18C40:HEIT 
150 *1*00* »7,i,l,!,25:*I*D0W «8,40,40,1 
,25¡PAPER «7,0:P£* »7,3:PAP£R I6,0:PE««6 
,3 

160 .*»=■ Por VJF6 para "tCHRI(24>t a A.sl 
rad Personal’tCHR«!24)t‘ ,,,, CTPL4A dur 
ante la partida para volver a esta panta 
lia .... I para Instrucciones E para e 
•petar .... f Adiós ,...'¡re=l 
170 CALL 4BC02:IHK 0,12:1** l,26:60RDER 
12:1** 3,0:PLOT 40,1,2:DRAU 600,0:DRAU 6 
0O,399¡QRA* 40,339:DRAW 40,0 
180 LOCATE 15,13:PEN 2:PRINT’Por VJF6* 
190 cl*CHR«(34) 

200 a*=c»‘ , I**c»t* Instrucciones 
'tcir'E'rcir' Eipetar , a tc«r a F a tc*r 

* Pin ICTRLlr'scir'A'scii' Abortar 

210 po«=SPACES(34)ra«:HHILE [NKEY»<7 aa :* 
END 

220 POR r=l TO LE*(pol):LOCATE 4,23:PRI» 
T HID$(po*,r,34)j 

230 pa»=LO*ER«(I*KEí«)!lF pi*=*i* OR pai 
=’e a OR pats'C THE* 260 
240 coWII0»(ie»,re,l):PRI*r*6,co«;:PRI* 
T«7,co«|:re»re*l:IP re)LE*(ne») THE* re= 
1 

250 HEIT r:GOTO 210 

260 IP pa*. a i" TREN &0T0 3200 

270 IF pa»='C THEN CALL IBC02:H0DE 1:PE 

* 1 iPQKE A8DEE,lrC3:PRIHF , CAO 1987'lEHO 
230 ir pai='e' THEN 60TO 3800 

290 END 

300 '- 

310 'RUTINA PRINCIPAL 

320 '- 

330 EI:60SU8 2530]OUT 4.BCOO,1:0UT IBOOO, 

0 

340 EVERY 100 60SUB 3120 
350 «!=l;beept=CHRS(77 
360 D1H carta(50),flag(SO) 

370 ian«(l)e*orps t :canf(2)='espadas':aan 
«(3)* , basto5 , :ean«(4)v , copas* 

380 IWDE 1 

390 DEC FNcar(a)=lNT(a/4)+I:DEF FNcarKa 
)=STR»Il*T(a/4)tl)P de 'nantlla HOO 4) 
+17:DET TNiaMaMa HDD 4)s| 

400 *1*00*11,2,39,2,3:CLS«1¡*1*00*12,2,1 
5,13,20:HIND0* »3,1,39,14,25:PAFER «1,2: 
PAFER»2,2:PAPERI7,2iPE* 1¡PAPER OiCLStl: 
CLS»2:60SUB 2400:*I*DO»I1,2,3B,2,9:*IKDO 
*«2,2,14,13,19:*l*00y 18,39,13,24:PAPER 
0:CIS 

410 60SLIB 1180'smbarajar 

420 FOR n*l TO 4:eesíi)=carla(e)lr(e)-*I* 

I(caFta(.)/4)H:llag(«)=l:NEn 

430 nesnun ■-!a■=■-! 

440 IF(r(l)=r(2))02(r(l)=r(3))0R(r(l)=r( 
4))OR(r!2)-r(3))OR(r(2)=r(4))OR(r(37=r(4 
17THEN ERASE cartaiOIH carta(401:60T0 41 

0 

450 60SU8 1530;60SUB 3380:EI 


460 HHÍLE •<40¡60SUB 540:*£*D: 

470 If u11 «= a cpu a THE* PRiNT’Las ultiias 
para el ordenador a iccpu=ccput*esnuK 
480 IE ult«= a jug a THE* PRINT'Las ultlnas 
para el jugador a :cjug=cjugriesnun 
490 IP cjugíccpu THE* pcpu-pcpu+íccpu-20 
í ELSE IF cjugTccpu THE* pjug=pjugt(cjug 
- 20 ) 

500 PRIHT:PRI*T a Pulsa una tecU a :CALL IB 
B18:60SU 8 2900 

510 IF pjug>=40 ANO pjuglpcpu THE* 1990 
520 IF pcpu)*40 AND pcpuípjug THEN 2000 
530 ccpu 0:cjug=ccpu:ERASE cartaiíIH car 
taí4O}:H0OE 1:8070 400 
540 jugron-0:cpurcn=jugron:cao=200:60SUB 
1220 

550 IF FNcar(cpu!l))=FNcar(cpu(2))DR f*c 
ar(cpu(l))=f*car(cpu(3))OR FNcar(cpu(27) 
=F*carícput3))THEN PRl*T a £l ordenador ti 
ene una ronda‘:cpuron=l:60S08 3070 
560 IF F*car(jug(l))=rNcar(jug(2))0R FNc 
ar < jug<1)) =F*car < jug(3»0R FNcar (jug(2)> 
=F*car(jug(3))IH£* PRIHT jugl* tiene una 
ronda':jugronv| 

570 If jugron»l ANO cpur.on=l THEN 605UB 
1740:'jugarse la ronda 
580 If (jugronvl OR cpurond) AND (jugro 
n=0 OR cpuron=0) THEN 60SU8 1840 

600 'SU8RUTTNA DE UNA NANO 

610 i- 

620 cpunun=3:cao=200:60SU8 1310:'jugar c 
pu 

630 PRINTrPRINT'Nueva #ano a :PRt*T a Pulsa 
una tecla':*HiL£ i*K£9*0 ,a :HEND:*Hll£ 1 
NKEí«= aa .'*E*0 

640 If nasalU70 THEN 60SU8 1460 
650 If na sal t()0 THE* [f .asaltOS THE* 
en=cpu(iasalt):cpu(nasalt)=cpu(3):cpu(3) 
=en 

660 card=3:60SUB 3000 

670 IF nasal^O THES imoii»*»m*u*M:*« 

(•rsnui)=cpu<3):GOSU8 1530'smt.ostrar 

cartas de la eesa 

6B0 IF nesnue=0 THE* SOSUB 1670 

690 ir nasait=0 THEN cao=ENcar<cpu(3)7 E 

LSE cao=200 

700 jugtira=3:60Stí8 2200 
710 IF FNcar(jug(jugadal)=cao IHEN 6DBUB 
1700 

720 SOSUB 1570 

730 IF flag-0 THEN cao=FNcar(jug(jugada) 

7 ELSE cao=200 

740 IF fl agO THEN iesnue=iesnuerl :eesí ■ 

esnun)=jug<jugada):cjug=cjug-l 

750 IF jugada<>3 THEN en=gugtjugada):jug 

(jugada)=jug(3)-.jug(31-+n 

760 jugtirav2i60SU8 2240 

770 SOSUB 1530 

780 IF aesnueU THEN 60SUB 1680 

790 IF FNcar(cpu(l))=cao IHEN »asalt=l:S 

OSUB 189O:6OT0 820 

800 IF FHcarícpu(2))=cao THE* nasalt=2¡6 

OSUB 1690i60T0 820 

810 cpunue=2:60SUB 1310 

820 FOR ret--l TO I000:*E1T ret 

830 IF «saltoo THE* 60SU8 1460 

840 IF nasaltOO THE* IF easalt<)2 THE* 

en=cpu(*asalt):cpu(nasalt)=cpuí2):cpu(2) 

=en 

850 (ard=2:60SUB 3000 

860 IF aasaltrO THE* «esnu«=iesnueM ríes 

(•esnun)=cpu(2>¡SOSUB 1530 

870 IF *esnua=0 THE* SOSUB 1670 

880 IF sasalt=0 THE* cao=r*car(cpu(21) E 

LSE cao*200 

890 jugtira=2:60SUB 2200 
900 IF FNcarijugljugada))^ao THE* SOSUB 
1700:ELS£ cao=20O 
910 SOSUB 1570 

920 IF ílag=0 THEN cao=F*car(jug(jugada) 

) aSE cao 200 




930 IF (lag=0 THE* •esnui=iesnuitl:nes(i 

esnun)=jug(jugada)::jug=cjug-l 

940 IF jugada<>2 THE* jug(jugada)--jug(2) 

950 jugtira=l:GOSUB 2240 

960 SOSUB 1530 

970 IF tesnui-o THE* 60SU8 1680 

980 IF F*car(cpu(l))Kao THE* «asaIM:6 

05JB I690¡SOTO 1000 

990 cpunua 1:60SUB 1310 

1000 FOR ret-I TO IOOO:*EIT ret 

1010 ir nasal l<)0 THEN SOSUB 1460 

1020 c ard-1:SOSUB 3000 

1030 IF iasalt-4) THE* aesnui=iesnuiLline 

s(iesnu»)=cpu(l)¡60SU8 1530 

1040 IF ie5nun--0 THE* 60SUB 1670 

1050 IF easalt=0 THE* cao=FHcar(cpuíl)) 

ELSE cao=200 

1060 jugtira=l:60SUB 2200 

1070 IF FMcar(jug(jugada))=cao THEH SOSU 

8 1700 

1080 SOSUB 1570 

1090 IF ílag=0 THEH nesnunriesnunvliiesi 
•esnui)=jugijugada)icjug tjug-I 
1100 CLS«2:60SUB 1530 
1110 ir lesnua-O THE* SOSUB 1680 
1120 IF nayorS= a jug a THE* PRINT'La ronda 
de a jug4 a es nayorSOliMB I,50:pjug=pju 
g»2 

1130 IF »ayorS-*cpu" THE* PRINT’La ronda 
del ordenador es nayorVSOUHD l,50'.pcpu 
=pcpu*2 


1140 ir .ayor«=*OOD p THE* PRINT'Las rond 
as son igual es'iSOUND 1,200 
1150 •ayori--** 

1160 IE .=34 THE* PRIHT beepPLas 40‘ 

1170 RETURN 

1180 POR a-O 10 39 

1190 l=I*T(RND(TIHEIa40)tl:IF carta(*)=0 
THEN carta(.)=a ELSE 1190 
1200 NEIT a 
1210 RETUR* 

1220 1 - 

1230 'REPARTE CARTAS 
1240 '- 

1250 PENI4,3:LOCATE «4,2, lliPRINTH,jug» 
a :PE*«4,1: FOR a=l TO 3ii-«+1: jug (a ) _ ca 
rta(n):NEIT a:jugtira=3:S0SUB 2240 
1260 PEN»4,3:LOCATE «4,17,11:PRI*T»4, a 0r 
denador: a :PEN»4,liPOR a-*l TO 3:i-iH:tpu 
(a)’carta(n):*EIT a 
1270 RETUR* 

1280 '--- 

1290 'DECISION DEL ORDENADOR 

1300 '- 

1310 rOR r-C TO 3 :coot adori r) *0 :*EIT :1F 
•esnun-o THE* nasaIt=0:RETUR* 

1320 FDR a=l TO cpunun 
1330 FOR b=l TO lesrai» 

1340 IF FNcarCcpu(A)) f*car(ies(b))THE« 
6DSUB 1410 
1350 NEIT b,a 

1360 nasa KAI(cont ador(1),cont ador (2), co 
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nUdor (3)): IF aasa=0 THEN aasalt’O:RETUR 
N 

S370 IF aasa=contadorÜ) THEN iasalt-1 
1380 IF aasa*contador(2) AND cpur>ua>-«2 T 
HEH sasait*2 

1390 IF »asa=contartor(3) AKD cpunua-3 TH 
EN 135311=3 
1400 RETURN 

1410 contador(A)=1:F0R z=l T0 aesnua 
1420 F0R n=l TO 3 

1430 IF FNcar(■es(z))=FNcar(cpu(a))*n TH 

EN contador(a)'contador(aMt 

1440 KEXT n,z 

1450 ultS=*cpu*:RETl/RH 

1460 peo=0:ccpu=ccpu«l 

1470 FOR n s l TO aesnua; 

14B0 IF FNtar(cpu(*asalt))*peo=FNcar(tes 
(n))THEN SOTO 1510 
1490 NEITrGOSUB 1530 
1500 RETURN 

1510 FOR 2 *n TO iesiiuiüestetoestzíUsN 
£XT:*esnui = iesnui-liccpuxcput1rpeo’peo* 
i 

1520 6QT0 1470 

1530 IF «esnua-l THEN SOTO 1560 ELSE FOR 
i a i TO «esnui-lsFOR j*i TO aesnua 


1540 IF FNcar(aes(i))>FHcar(aes(j)) THE 
N pegote«aes(i)¡aes(i)=aes(j):aes(j) 
ote 

1550 KEXT j,t 
1560 GOTO 2040 

1570 petrfl:flag-0:c jugxjugM 

1500 FOR n'l TO aesnua 

1590 IF FNcdr(juq(jugada))apeo-FNcar(*es 

(n))THEH BOTO 1620 

1600 NEXT 

1610 RETURN 

1620 FOR z=n TO aesnua:aes(z)=aes(z+l):N 

EXT:aesnua=aesnua-l:cjug’<jug*l:peopeo* 

I:f1ag=i:u1ti=“jug" 

1630 SOTO 1580 

1640 - - 

1650 'PUNTUA NESA Y CAO 

1660 -- 

1670 PRINT 'El ordenador hace aesa';S0UN 
D l f 10Q:pcpu=pcpu*l:RETURN 
16B0 PRINT 'Una de aesa para 'jugliSOUND 
l,100:pjug=pju()4l: RETURN 
1690 PRINT 'Un cao para el ordena 

dor':SOUND 1,70:pcpu=pcpu+2s recao=cao:ca 
o-200:RETURI 

1700 PRINT jugi' acaba de hacer cao‘:S0U 


ND l,70:recao=cao:pjugpjug*2:cao T 200:RE 
TURN 

1710 '- 

1720 'GESTION DE RONDAS 

1730 '- 

1740 IF FNcar(cpu(í))=FHcar(cpu(2)) THEN 
cpuronda=FNcar(cpu(2)) 

1750 IF FNcar(cpu(l))=FNcar(cpu(3)) THEN 
cpuronda=FNcar(cpu(3)) 

1760 IF FNcar(cpu(2>}-FNcar(cpu(3)) THEN 
cpuronda=FNcar(cpu(3)) 

1770 IF FHcar(jug(l)) ; FHcar(jug(2)) THEN 
jugronda=FNcar(jug(2)) 

1700 IF FNcartjug{l)l=FHcar(jug(3)) THEN 
jugronda=FNcar(jug(3)) 

1790 IF FNcar(jug(2))=FNcar(jug(3)) THEN 
jugronda‘FNcarfjug(3)) 

1800 IF cpuronda>jugronda AND cpurondaO 
jugronda THEN aayorl=’cpu* 

1810 IF cpurondaíjugronda AND cpurondaO 
jugronda THEN aayorl-'jug* 

1820 IF cpuronda=jugronda THEN aayort=*0 
00 * 

1830 RETURN 

1840 IF jugronM THEN Pju 9 =pjug«-1:RETURN 
1050 IF cpuron=t THEN pcpu’pcp'u+l:RETURN 

1860 »- 

1870 'PANTALLA FINAL 

1880 '- 

1890 EVERY 0 60SU8 2530 

1900 BORDER 16:6DSUB 3990 

1910 NODE I:PAPER OíPEN 1 

1920 PRINT CKRK23HCHRi(l):H0DE 1-.F0R a 

*0 TO 660 STEP R0UND(RND*5)H:color=a NO 

D 15:NOVE a.atORAH 639-a r a,co!or:DRAM 63 

9-a f 399-a:DRAW a,399-a:DRAH a,a:NEXT a 

1930 RETURN 

1940 con»PEEK(0)4256»PEEK(l):l0CATE INT( 
20-LEX(a$)/2),PGS(IO) 

1950 FOR n=l TQ LEN(Mi) 

1960 FOR t=0 TO 7 

1970 p=PEEK(con*(ASC{HlDS(al r n r l)))*8 f t) 
:f(I)-p:N£XT¿SYMBOL 254,1(0), f(0>,f(l),í 
(1),f(2),1(2),1(3),1(3)¡SYMBOL 255,1(4), 
l(4),f(5),f(5),1(6),f(6),f<7),f(7):PR1NT 
CHRI(254)CHRt(10)CHR$(8)CHR$(255)CHRKl 
i); 

1980 NEXT:RETURN 

1990 60SUB 1890:LOCATE lO,l:a«=*Ha ganad 
o’:60SUB 1940:LOCATE 16,l:it*'e) jugador 
•:60SU8 1940:CALL 18818:RUH 
2000 GOSUB 1B90:LOCATE 10,l:ai=*Ha ganad 
q*: 6GSU8 1940:LOCATE 16,l:if s> c) ordenad 
or*:60SUB 1940:CALI IBBISrRUN 

2010 »... 

2020 'NUESTRA CARTAS DE LA NESA 

2030 '.-.. 

2040 FOR r=l TO aesnua 

2050 LOCATE 11,(r*3)-2,1 

2060 PRINTÍ1 ( CHRK15Ü)*STR1NG«(2,154) 

2070 LOCATE *1,(r*3)-2,2 

2080 PRINTH,CHRt( 149)CHRKDCHRt(FNcar ( 

aes(r))) 

2090 init=172»ÍFW •an(§es(r))«4) 

2100 LOCATE ll,(r*3)-2,3:PRINTIl I CHRí(14 
9);:PENIl,3:PR3NTIl f CHR$(imt )CHR$(init4 
l):PEN»t,t 

2110 LOCATE ti, (r*3)-2,4:PRINTI1,CHRK14 
9)}iPENIl,3:PRINTII,CHR$(init*2)CHRl(ini 
t+3):PENI1,1 

2120 LOCATE II,(r*3)-2,5:PRINT»l,CHRSÜ4 

9) CHRl(32)CHRtü)CHR4(FKcar(aes(r))) 

2130 LOCATE II,(rt3)-2,6:PRlNTIl,CHRt(14 

7) STRlN6i(2,154) 

2140 MEXT 

2150 IF aesnua>0 THEN LOCATE ll,(r*3)-2, 
1:PRINTI1,CHR4(156)CHRKI0>CHR1(8)CHRI( 1 
49)CHRi(10)CHRi(8)CKRI(149)CHRi(l0)CHRt( 

8) CHRí(l49)CHR«(lO)CHRt(8)CHRS(149)CHR»( 

10) CHRÍ(8)CHRI(153):«IND0H I7,((ír*l)«3) 
-4)41,38,2,9:CLSI7iRETURN 

2160 CLS II¡RETURN 
2170 '- 



2180 'PIDE JUGADA 
2190 '. 

2200 WHILE JNKEYiO'MíEND: jugada-0:LOCA 
TEi4 l 2,24:PRINF#4,CHRi(24)- Te toca ’CHR 
t(24):UHILE jugada<i OR jugada)jugtira:a 
1=INKEYi: jugada’VALCO'tal): UEND: LOCATE* 
4,2 l 24:PRINTI4,SrRINGI(10,32);:RETURN 

2210 ».. 

2220 'NUESTRA CARTAS DEL JUGADOR 

2230 *- 

2240 CLSI2:FOR r*l TO jugtira 

2250 LOCATE I2,(r»4)-2,1 

2260 PRINTI2,CHRK150)ASTRINGÍ(2,154) 

2270 LOCATE !2,(r»4>-2,2 

2280 PRINTI2,CHRK 149)CHR«( DCHRí (FNcar ( 

jug(r))) 

2290 iniM72«(FN aan(jug(r))*4) 

2300 LOCATE 12,(r»4)-2 1 3:PRINII2,CHRIÜ4 

9); :PENI2,3:PRINTI2,CHRI(ifiit)CHRt(iniU 
1)::PENI2,1 

2310 LOCATE I2,(r»4)-2,4:PRINTI2,CHR«Ü4 
9);:P£NI2,3:PRINTI2,CHRt(init42)CHRÍ(inl 
t*3):PENI2,l 

2320 LOCATE I2,Im4)-2,SiPRI«TI2,CHRKI4 

9) CHR6(32)CHRI(I)CHR6 í FNcir(jugí r1)) 

2330 LOCATE 12,(rM>-2,6:PRIHTI2,CHR»C14 
7JSTREN6K2,154) 

2340 LOCATE 12,(r*4)4|, ÜPR1NT12,CHRt(15 
6)CHRi(10)CHRf(8)CHRt(l49>CHR4(10)CHR»(8 
)CHR4(140)CHR*{10)CHRI(8)CHR«(149)CHR*!1 
0)CHM<8)CHR»(149)CH8»(10)CHR«(8>CHR»<15 
3):'WIMD0M »7,(Cr*4H3)*l,19,13,24:CLS»7 
')»>>»>>>)> >>I7,1,19,13,24:CLSI7 
2350 NEÍT* • 

2360 RETURN 

2370 >-- 

2380 'DIBUJA TABLERO 
2390 '. 

2400 PAPER 2¡LOCATE l,l: r RINT CHRI(I3S)S 
IRIN6t(38,13I)CHR»(139> 

2410 LDÍATE 2,t:EDR 1=1 TO 8.-PR1KT MUI 

10) CHR*(8)CHRM133)¡:NEIT 

2420 LOCATE I,I0:PR1NT CHRK14I1STRINGK 

38.140) CHR*(I42) 

2430 LOCATE 42,l:FOR i'l TO 3:PR!MT CHRÍ 

(10)CHRt(8)CHRt(l38>;:KEIT 

2440 LOCATE I,I2:PRINT CHR»(I35>STR¡N6»( 

14,131)CKRi(109) 

2450 LOCATE 2,12:FOR j=l TO 8:PRINT CHR* 

íiOJCHRt(8)CHRi(133);:NEX T 

2460 LOCATE 1,21:PRINT CHR*(14i)STRIN6t( 

14.140) CHR*([42) 

2470 LOCATE 17,12:EOÍ 1»1 TO 8:PRINT CHR 
* 110)CHR* E8)CHR*(138)¡: NEXT 
24B0 PAPER l4,2:L0CATEI4,2,2O:PRmi4,CH 
RK9)‘ I 2 3V.PAPER 0:PAPER«4,0 
2490 RETURH 

2500 1 - 

2510 'DEEINICION OE CARACTERES T TINTAS 

2520 1 -- 

2530 SYMBOL AFTER I 

2540 SYMBOL 176,7,28,48,32,103,72,133,13 
2 

2550 SYMBOL 177,224,56,12,4,198,34,33,33 
2560 SYMBOL 178,136,132,68,98,34,48,28,7 
2570 SYMBOL 179,33,33,66,134,132,12,56,2 

24 

2580 SYMBOL 180,0,1,1,0,0,1,3,7 
2590 SYMBOL 181,2,135,78,188,248,200,148 
,« 

2600 SYMBOL 182,14,28,57,114,228,200,144 
,224 

2610 SYMBOL 183,70,128 
2620 SYMBOL 184,0,24,119,65,132,209,64,1 
01 

2630 SYMBOL 185,0,0,0,128,192,64,96,32 

2640 SYMBOL 186,48,28,6,1 

2650 SYMBOL 187,48,152,8,132,98,17,11,6 

2660 SYMBOL I88,IEF,170,213,64,106,58,26 

,14 

2670 SYMBOL 189,trr,171,87,2,174,172,184 
,176 

2680 SYMBOL 190,2,2,1,2,2,2,4,27 
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SERIE ORO 


2690 SYK80L 181,68,04,128,6*,54,6N,32,21 
6 

2700 SypiBOL 126,126,0,216,102,102,102,10 
2 

2710 SYKBOL 150,0,0,0,7,15,29,24,24 
2720 SYH80L 156,0,0,0,224,240,56,24,24 
2730 5VHB0L 147,24,24,20,15,7 
2740 SYNBGL 153,24,24,56,240,224 
2750 INC 0,20:]HK I,0:B9B0E(¡ 20:INK 2,16 
lIKt 3,5 

2760 SYHBOL 1,0,3,24,8,8,8,62 
2770 SYHBOL 2,0,28,34,4,8,16,62 
2780 SYMBOL 3,0,62,2,12,2,2,60 
2290 SYMBOL 4,0,8,16,34,62,2,14 
2800 SYMBOL 5,0,126,64,124,2,2,124 
2810 SYMBOL 6,0,60,64,124,66,66,60 
2820 SYMBOL 7,0,126,2,4,0,8,8 
2830 SYMBOL 8,0,671II1110,6110,1110,1110 
00010,671000010,61111100 
2840 SYMBOL 9,0,67111100,621000010,61100 
0010,611000010,621000110,61111111 
2850 SYMBOL 10,0,671000100,671001000,621 
110000,611001000,611000100,611000010 
2860 KE1USH 

2B70 '.-. 

2880 'MUESTRA PUNIOS AL FINAL OE «ANO 

2890 '.. 

2900 OIjGOSUB 3960:NIN00« 17,1,40,11,25: 
PAPERI7,0:PENI7,1:CLS«7:CLS01 
2910 PRINTI1Ordenador •¡ 

2920 PRINTI1,STRIN66(30,154) 

2930 PRINII1,'Pontos '¡ptpu' '¡pj 
“9 

2940 PR1NTI1,'Cartas '¡ccpu* 'jej 
os 

2950 PRINtll:PRINT*¡,'Pulsa ooa tedi'iS 
OSUB 3980:UHILE IN«Y*<)"¡UEND:NH1LE IN 
KEY»=":«END¡60SUB 3960:EI 
2360 RETURN 

2970 1 . 

2980 'CARIA OUE TIRA EL ORDENADOR 

2990 '.- 

3000 PRINT'El ordenador ha tirado') 

3010 IF FNcar(tpu(card))=8 IHEN PRINT 'u 
na sota'; 

3020 IF FNcar(cpu(card))=S THEN PRINT 'u 
n cahallo'; 

3030 IF FNcar UpulcardD'lO THEN PRINT ' 
un rey'; 

3040 IF FNcar (cpulcardlXB THEN PRINT 'u 
ft 'FNcar (cpu(card)); 

3050 la^rNeanlcpuícardHlPRINT ' de '¡la 
nt(Fa) 

3060 RETURN 

3070 DI:FOR o=0 TO liFOR i=l TO 7:ÜUT 6r 
600,610,'FGR y=I TO 7:NE7T:0UT 6F600,60:F 
OR yl 10 7:NE2T y,i:FOR y=l TO IOOiNEIT 
y, v: EI 
30BO RETURN 

3090 '.. 

3100 'IMPRIME PUNTOS 1 BUSCA SANADOR 

3120 LOCATE 45,12,11:PRINTI5,pjup:LOCATE 

45,28,ll:PR[NII5,pcput 

3130 IF pjup>=40 ANO pjuglpcpu THEN EVER 

Y O SOSUB 2960:PRINT:PRINT:PRINT'FIN OE 
PART1OA*:PRINT“PULSA UNA TECLA*vCALL 6BB 
03:CALI 6BB1B:60TO 1990 

3140 If pcpuí’40 ANO pcpulpjup THEN EVER 

Y OSOSOB 2960:PRINI:PRINT:PRINT'F1N OE 
PARTIDA':PRINT'PULSA UNA TECLA':CALL 6B6 
03:CALL 6BBI8:BOTO 2000 

3150 ir [NREY»=CHRt(l) THEN RUN 
3160 RETURN 

3170 '- 

3180 r INSTRUCCIONES 
3190 '.. 

3200 MODE 1:CALL NBC02:IHK O,18:B0RDER 1 
9:INK l,0;PEN 1 

3210 PRINT CHR»(204HSTRIN6»(38,208)tCHR 
4(205) 


3220 IIINDÜB I,1,2,24:PR1NT STR1NSÍC2S,21 
I)¡:N1ND0N 40,40,2,24:PRINI S!R!N6*<25,2 
09*| 

3230 NINDOU 2,39,2,24:LOCATE I4,I,25:PR! 
NII4,CHR«(205)*STRIN6»(38,2I0)*CHR*<204) 
I 

3240 PEN 3¡RESTORE 3290 

3250 FOR a=l TO 20¡READ ai 

3260 IF ai“'FIH" THEK PRINT’Pulsa una te 

cU’¡«HILE INKEYiO #, :WEND:CALL L8818:G0 

SUB 3990:GOTO 120 

3270 PRIHT TAB<!NT(2Q-LEN(a$)/2));ai:NEI 

T a 

32B0 PRIKTíPRIMT-Putsa una tedaVHHILE 
INKEYiO":lOO:CALL l88i8:CLS:SÜT0 3250 
3290 OATA 'El objeto del juego es llevar 
se el* 

3300 DATA 'aayor nuaero de cartas posibl 
es. * 

3310 DATA ' * 

3320 DATA ‘Se colocan cuatro cartas en 1 

a aesa' 

3330 DATA 'y se reparten tres «as a cada 
jugador' 

3340 DATA ' 1 

3350 DATA 'Sale sieapre el ordenador. 1 
3360 DATA 'Si entre sus cartas tiene alg 
una de* 

3370 DATA 'igual nuaero a alguna de las 
cartas* 

33B0 DATA 'de la aesa, se lleva su carta 
, la de* 

3390 DATA *la aesa y todas las cartas* 
3400 OATA 'correlativas que haya.' 

3410 DATA * 1 

3420 DATA 'Por ejeaplo:' 

3430 DATA 'En la aesa hay un 2,un 3,un 4 
y un 7, 1 

3440 DATA *y el jugador tiene un 2,' 

3450 DATA 'entonces el jugador se lleva 
su 2,* 

3460 DATA 'el 2 de la aesa,el 3 y el 4* 
3470 DATA 1 ' 

3480 DATA ' ' 

3490 DATA 'RONDAS: 

3500 DATA "Si uno de los dos jugadores t 
lene* 

3510 DATA "Dos cartas iguales, es una ro 
oda,' 

3520 DATA 'y se paga un punto.' 

3530 DATA *St los dos jugadores tienen r 
onda' 

3540 DATA *al terainar la aano se llevar 
a dos" 

3550 DATA "puntos el que la tenga aas al 
ta" 

3560 DATA "CAO: 

3570 DATA ‘Si un jugador tira una carta 
y el' 

35B0 DATA "otro jugador la recoge, es un 
cao y’ 

3590 DATA 'se paga a dos puntos.' 

3GOO DATA • 1 

3610 DATA "Al terainar cada aano se cuen 
tan las* 

3620 DATA 'cartas de cada jugador.' 

3630 DATA 1 • 

3640 DATA 'A los puntos del que tas cari 
as' 

3650 DATA 'tenga, se suaara el nuaero de 

3660 DATA 'cartas que pase de veinte.* 
3670 DATA * ',' ' 

3680 DATA 'Sanara el que priaero llegue 
a' 

3690 DATA 'cuarenta puntos.' 

3700 OATA 1 * 

3710 DATA "Suerte y que gane el aejor,* 
3720 OATA 1 ' 

3730 DATA 1 * 

3740 DATA ' ' 



_ 


CHECK del 2730-1574 


2730.- 

1046 

2740.- 

1544 

2750.- 

1379 

2760.- 

1034 

2770.- 

1103 

2780.- 

1090 

2790.- 

1 109 

2800,- 

1426 

2810.- 

1459 

2820.- 

B71 

2830.- 

1 126 

2840.- 

1206 

28S0.- 

1296 

2860.- 

262 

2870.- 

1691 

2880.- 

2439 

2890.- 

1711 

2900.- 

2354 

2910.- 

2224 

2920. - 

11 SS 

2930.- 

2805 

2940.- 

2746 

2950.- 

3368 

2960 . - 

362 

2970.- 

1607 

2990.- 

2247 

2990.- 

1627 

3000.- 

2619 

3010.- 

4013 

3020.- 

4200 

3030.- 

3845 

3040.- 

5309 

3050.- 

4201 

3060.- 

462 

3070.- 

8931 

3080.- 

227 

3090.- 

1610 

3100,- 

2381 

31 10,- 

1630 

3120.- 

2668 

3130.- 

7973 

3140.- 

7995 

3150.- 

1718 

3160.- 

307 

3170.- 

908 

3180.- 

1334 

3190.- 

928 

3200.- 

1703 

3210.- 

2827 

3220.- 

3407 

3230.- 

3932 

3240.- 

922 

3250.- 

1698 

3260.- 

5425 

3270.- 

3000 

3280.- 

4194 

3290.- 

3659 

3300.- 

3613 

3310.- 

532 

3320.- 

3785 

3330.- 

3732 

3340.- 

307 

3330.- 

2765 

3360.- 

3602 

3370.- 

361 l 

3300.- 

3431 

3390.- 

2755 

3400.- 

2511 

3410.- 

377 

3420.- 

1509 

3430.- 

3218 

3440.- 

2490 

3450.- 

3504 

3460.- 

2450 

3470.- 

437 

3480.- 

447 

3490.- 

1373 

3500.- 

3543 

3510.- 

3475 

3520.- 

2106 

3530.- 

3644 

3540.- 

3688 

3550.- 

3399 

3560.- 

1295 

3570.- 

3533 

3580.- 

3722 

3590.- 

2193 

3600.- 

312 

3610.- 

3662 

3620.- 

2444 

3630.- 

342 

3640.- 

3221 

3650.- 

3059 

3660.- 

2785 

3670.- 

530 

3600.- 

3176 

3630.- 

1995 

3700.- 

412 

3710.- 

2867 

3720.- 

432 

3730.- 

442 

3740.- 

452 

3750.- 

653 

3760.- 

402 

3770.- 

906 

3700. - 

1194 

3790.- 

926 

3800.- 

3211 

3810.- 

3020 

3820.- 

493 

3830.- 

2073 

3840.- 

1173 

3850.- 

7442 

3060.- 

1490 

3870.- 

8747 

3880.- 

302 

3890 .- 

4068 

3900.- 

3288 

3910 .- 

755 

3920 

2595 

3930.- 

3875 

3940.- 

2615 

3950.- 

5438 

3960.- 

5244 

3970.- 

4747 

3980.- 

4491 

3930.- 

1282 

4000.- 

2017 

4010.- 

1609 

4020.- 

2340 

4030.- 

2066 

4040.- 

3340 


3750 DATA 'FIN' 

3760 STOP 

3770 '- 

3780 'PIDE NOMBRE 
3790 ’.- 

3800 SOSUB 3960:CALL 18C02:N0DE 1:PL0T I 
,1,3:DRAM 639,0:DRAM 639,399:DRAM 0,399: 
DRAM 0,0 

3810 PEN hLOCATE 12,2:PRIXT CHR*(174)*C 
oao te llaaas?" 

3B20 PEN 2 

3830 LOCATE 14,15:PRINT'.':L0C 

ATE 15,!5i6QSU8 3970 
3840 ai=LGW£RÍ( INKEW) 

3850 IF ai-CHRi(127) AND LENÍjugi)>0 THE 
N PRINT CHRi<B)'-"CHR*(8}¡:jogÍ--LEFTt(ju 
gi,LEN(jugi)-l):SQUND 1,200,1,15 
3B60 IF ai=CHRÍ(13) THEN 3B90 
3870 IF <<aÍ>CHRi(%) AND at<CKRÍ(l23)) 
OR ai*' *)AND LENÍjugiKS THEN PRINT UPP 
tRfíai)j: jug$=jugÍ+ai:SGUND l,ASC(at),l, 
15 

3880 60TO 3840 

3090 IF LENÍjugi)>0 THEN HIDiíjugi,1,1)» 
UPPERi(L£FTi(jugi,I)> 

3900 IF LENÍjugi)=6 THEN /ügi-'El huaano 

3910 6QSUBj 3960:SOTO 330 

3320 '- 


3930 'TRATAMIENTO OE ERRORES Y PRESENTAS 
ION DE PANTALLAS 

3940 '.-. 


3950 CALL IBC02‘.M0DE 2-.PEN 1-.PAPER 0-.PR1 
NT'Localizadp un error *}ERR¡* en la lin 
ea ';ERL:EN0 

3960 DI-.FOR 1*25 TO O STEP -l’.CALL IBD19 
:0UT V8COO,6:OUT IBDOO,I:NEU X:OUT VBCO 
0,1:ÜUT 48DOO,0:RETURN 
3970 DhOUT IBC00,1-.0UT 18DOO,40-.FOR I‘-0 
TO 25:CALL tBD)9:0UT IBCOQ.GsOUT 18DOO, 
I:NEIT X:RETURN 

3980 DI.-OUT IBC00,6.-0UT VBDOO, 25.-F0R 1-0 
TO 40:CALL iBD19:0UT IBCOO,1¡OUT LBDOO, 
T'.NEÍT: RETURN 
3990 FOR n s 30 TO 38 

4000 CALL tBD19:0UT iBCOO,7:OUT lBD00,n¡ 
MEXT 

4010 CALL IBD19.-0UT WCOO, 7.-OUT iBD00,Q 
4020 FOR n=! TO 25:UINDOU IG,1,40,0,0 
4030 CALL 18D19:0UT IBCOO,7:OUT lBDOO,m 
CLSI6 

4040 NEXT:FDR n=26 TO 30-.CALL IBDiSiOUT 
IBCOO,7’.OUT l8DOO,n:NEIT: 

4050 RETURN 

5000 SPEED «RITE l-.SAVE"CAO*-.GOTO 5000 
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Llegar al final 


En esta sección habitualmente, se incluyen sugerencias de todo 
tipo que los lectores nos envían con la sana intención de facilitar 
el acceso al final de un juego. Este mes hemos dado un paso más, 
y tenemos pokes, cargadores y otras cosas que creemos merece 
la pena insertar en estas páginas para dejar sentado el carácter 
universal de las mismas. Tanto vale un acertado consejo, como 
un poke de vidas infinitas. Ambos sirven para llegar al final. 


BOMB JACK 


Si logramos coger, seguidas, 
entre 12 y 13 bombas encendi¬ 
das, se nos premiará con unos 
bonos de muchos puntos. 

Esto os facilitará alcanzar unas 
puntuaciones elevadas y un 
buen puesto en la tabla de me¬ 
jores bombarderos. 

Antonio Saavedra 
Murcia 


EXOI0N 


Una vez colocados los pokes 
que nos envía nuestro amigo 
Francisco desde Badalona, po¬ 
demos continuar avanzando por 
las pantallas del juego sin mie¬ 
do a que nos maten. Cuando se 
nos acaben las vidas y empeze- 
mos una nueva partida, descu¬ 
briremos que empezamos en la 
misma pantalla en la que nos 
mataron. Ahí van estos maravi¬ 
llosos pokes: 

Poke &BF27,&DO 
Poke &BF28,&BE 

Francisco Aguilera 
Barcelona 


ENDURO RACER 

Este interesante truco sirve pa¬ 
ra pasar las tres primeras pan¬ 
tallas, nada más empezar ei jue¬ 
go, sin necesidad de jugarlas. 

Para ello hay que pulsar simul¬ 
táneamente las teclas correspon¬ 
dientes al cero, al punto, a Intro 
y el 1, 2, 3, 4, 5 y 6 del teclado 
numérico, además de la corres¬ 
pondiente al cursor izquierdo. 
Pero, eso sí, todas la vez. 

Joaquín Dionisio Sánchez 
Málaga 

Para llegar hasta el final de 
Enduro Racer, no olvides estos 
consejos. 

En cualquiera de las pantallas 
hay que colocarse, todo lo que 
podamos, hacia la izquierda o 
hacia la derecha. La moto debe 
ir entre 20 y 23 km/h y derra¬ 
pando, con las rueda trasera ro¬ 
zando las rocas o piedras, pero 
siempre inclinada hacia un lado, 
ya que al ponerla derecha, se 
estrellará con lo que venga de 
frente. 

Mariluz Sánchez 
Málaga 


BRUCE LEE 


Voy a contaros cámo se pue¬ 
den conseguir desde 99 hasta 
103 vidas. Lo primero que hay 
que hacer es poner el juego en 
la modalidad de dos jugadores 
y llegar hasta la sexta pantalla 
sin que nos maten (como máxi¬ 
mo podemos perder dos vidas). 

Cuando lleguemos a dicha 
pantalla, hay que meterse en la 
ventana de la izquierda. De allí 
se sale a dos pantallas. En la de 
la derecha nos encontraremos 
con dos bolitas. Recogerlas y 
volver a la pantalla anterior. Re¬ 
gresar y coger todas las bolitas 
que podáis, hasta que se termi¬ 
nen. 

Si teníamos 9 vidas, al recoger 
las dos bolitas tendremos 99. 
Ah! y si se os pone en cero no 
os asustéis. Tendréis 100. 

Miguel Angel Anguita 
Ciudad Real 


IKARI WARRIORS 

A lo largo del juego encontra¬ 
remos unos tanques que, al co¬ 
gerlos, nos facilitarán nuestra 
misión. Para hacernos con ellos 
basta con situarnos encima y 
mantener el disparo hasta que 
desaparezca el muñeco. 

Sólo podrán matarnos, y el 
tanque se esfumará, cuando nos 
toque una bomba. 

Antonio Saavedra 
Murcia 
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PHANTIS 


La segunda parte de la prime¬ 
ra fase (la de las bolas de mag¬ 
ma) puede ser pasada con gran 
facilidad, si nos colocamos en la 
esquina superior derecha. Cuan¬ 
do ascienda la bola más gran¬ 
de nos dejamos llevar tras ella. 
Delante de nosotros saldrán una 
o dos naves, pero no es un gran 
problema eliminarlas. 

Repetir este método hasta pa¬ 
sar la fase. 

Andrés Trusillo 
Alicante 

Si lo que queréis es pasar di¬ 
rectamente a la segunda fase, 
seguir el consejo de Mariluz y te¬ 
clear la clave: 84187. 

Mariluz Sánchez 
Málaga 


UVINGS10NE 

SUPONGO 


En el juego Livingstone Supon¬ 
go , para PC, sigue estos conse¬ 
jos y obtendrás vidas infinitas: 

1. Presiona a la vez las teclas 
que forman la palabra OPERA. 

2. Pulsa el espaciador y ya 
tendrás vidas infinitas. 

Si no comprendes bien el jue¬ 
go y quieres una demostración 
de la máquina, pulsa la tecla D 
(demostración). 

J. Ramón González Sainz 
Santander 


FRANK BRUNO'S 
BOXING 

Hace poco tiempo publicamos 
las claves de acceso para los di¬ 
ferentes enemigos, siempre y 
cuando se pusiera un nombre 
determinado. En esta ocasión, 
Javier nos manda unas claves di¬ 
ferentes para un nombre distin¬ 
to. Poniendo como nombre XVG, 
las claves de acceso son las si¬ 
guientes: 

2. ° enemigo MUAIOMR98 

3. ° enemigo BOEINFPN8 

4. ° enemigo LS8IOBXN5 

5. ° enemigo BMC1NFVN8 

6. ° enemigo LPFIOITN3 

7. ° enemigo MT9IIBR98 

Javier Viladrosa 
Lérida 



ROAP RUNNER 

Si nos metemos en la cueva 
que hay en la primera fase, pa¬ 
samos directamente a la fase 
más lejana que hayamos llega¬ 
do en la partida anterior. 

Otra cosa que puede ser muy 
útil es conseguir que nuestro 
enemigo no se salga de la pan¬ 
talla, así no podrá conseguir su 
monopatín. 

Francisco Aguilera 
Barcelona 



CYRUS II 

Os mando algo así como un 
poke que no lo es. Me explico. 
Sirve para vencer al ordenador 
en el Cyrus II. Aunque este jue¬ 
go no es un arcade y el truco no 
sirve para hacer pautas, puede 
dejar boquiabiertos a sus amis¬ 
tades viendo cómo das jaque 
mate al ordenador en 28 segun¬ 
dos. Player son las jugadas que 
tiene que hacer el jugador, y 
Cyrus con las que contestará la 
máquina. 
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Llegar al final 
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GOODY 

Para todos los sistemas, si se 
pulsan las letras de la palabra 
«Goody» simultáneamente du¬ 
rante la demo, se obtienen vidas 
infinitas. Para quitar el poke, en 
cualquier momento del juego, 
pulsar «K». 

Colocación de herramientas: 

Compra 1. a : soplete en cloa¬ 
ca anexa a la casa del Goody, 
bajando a la izquierda. 
Compra 2. a : 

— Alicate, destornillador, lla¬ 
ve y martillo o llave fija o bro¬ 
ca. 

— Alicate en pantalla de en¬ 
trada al banco y volver a la tien¬ 
da. 

— Destornillador en primer 
biombo dentro del banco. 

— Martillo, broca o llave fija 
en segundo biombo, dentro del 
banco para equivocarse e ir a la 
cárcel. 

— Llave en cárcel. 

Compra 3. a : 

— Llave fija, broca y martillo 
y detonador (lo que queda). 

— Si vas por cloacas, dejar la 
broca en la entrada del banco 
por las cloacas. 

— En el segundo biombo, 
dentro del banco (en el que an¬ 
tes te equivocaste adrede), de¬ 
jar detonador. 

— En el siguiente biombo, 
dentro del banco, la llave fija. 

— En el siguiente biombo, el 
martillo. 

Anónimo 


SIR FRED 

Una vez seleccionado el mus¬ 
lo de pollo, hay que presionar la 
tecla «usar», agacharse y saltar. 
En el momento que se deja de 
presionar dicha tecla, el muñe¬ 
co se queda a esa altura. Si ha¬ 
cemos todo esto en el lado iz¬ 
quierdo del lago, mirando hacia 
él, llegaremos al castillo. 

Sin embargo, hay veces que 
dentro del castillo necesitamos 
deshacernos de unos cuantos es¬ 
padachines y cualquiera de los 
objetos que necesitamos para 
este menester se encuentran de¬ 
masiado alejados de nuestros 
posibles saltos, ya que para lle¬ 
gar hemos gastado la chuleta. 
Lo que propone Pablo Álvarez 
es que, una vez la chuleta en 
nuestro poder, atravesemos el 
lago y subamos al balcón. Cuan¬ 
do veamos una nube, tomamos 
carrerilla y saltamos a su extre¬ 
mo izquierdo. Así llegaremos al 
castillo sin haber utilizado la chu¬ 
leta. 


Pablo Álvarez Vallespín 



MAG-MAX 

Con este cargador podremos 
disfrutar de vidas infinitas e in¬ 
munidad. Todo lo necesario pa¬ 
ra acabar el juego. 

Joaquín Dionisio Sánchez 
Málaga 

10 REH CARGADOR HAG-NAX 
20 REH Joaquín Dionisio 
30 REW ♦* YAQUI ** 

40 CLS:CALL lcBC02:PRINT 'loseta cin 
ta y pulsa una teda' 

50 MEMORY 13000:LOAD" 



60 F0R a=48F00 T0 4BF53:PQKE a,0:NE 
XT 

70 INPUT 'Vidas infinitas (s/n)';VÍ 
:If UPPERl(Vt)=’S" THEN P0KE 48F48, 
EAFiPDKE 4BF49,432:POKE 4BF4A,4F1:P 
0KE 48F4B,41A 

80 INPUT 'Imunidad (s/n)';V$:IF UP 
PERÍ(VI)*'S' THEN POKE 4BF4C,43E:P0 
KE 4BF4D,4C9:P0KE 4BF4E,432:POKE 4B 
F4F,4C9:P0KE 4BF5Q,41A 
90 POKE 4BF51,4C3:P0KE 4BF52,0:PQKE 
48F53,2 

100 F0R A=45000 T0 45073:READ Z$:P0 
KE A,VALCl'fZt):NEXT:CALL 45006 
110 DATA C3,2A,50,C3,5D,50,F3,21,F6 
,37,36,C3,23,36,0,23,36,50,21,35,50 
,3E,C3,32,0,A0,7D,32,1,A0,7C,32,2,A 
0,21,Ci,37,E,FF,C3,16,B0,21,48,0,36 
,5B,21,4E,0,36,99,C9,21,0,B9,11,0,1 
9,1,0,1,ED,B0,21,0B,19,36,B9,21,0E, 
19,36,2E,21,36,B9,36,19,21,54,B9,36 
,C3,23,36 

120 DATA 3,23,36,50,C3,2E,B9,DD,21, 
D9,B8,11,83,0,CD,67,88,21,0A,BC,36, 
4B, 3E, AF, 32,24, BC, C3,3, BC, 0 



THUNDERCATS 


1, ° Vidas infinitas: 

Poke 33028,0. 

Poke 33029,195. 

2. ° Número de vidas: 

Poke 30842,N. 

Pedro Calvet Pérez 
Valencia 
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Te 

atreves...? 


Nuevo juego de aventuras, en 
el que la inteligencia, la ima¬ 
ginación y una buena dosis de 
astucia serán necesarias pa¬ 
ra alcanzar el final. Un jue¬ 
go de excelentes gráficos y 
un realismo en su desarro¬ 
llo muy especial. 


C uando la conocida 

baronesa alemana Perri 
Kaloro descubrió que sus 
joyas, herencia de muchos siglos 
de apellido aristocrático, habían 
desaparecido, entró en un 
indescriptible ataque de histeria. 

Inmediatamente el barón se 
puso en contacto con el detective 
más famoso de la ciudad, un 
joven inteligente y apuesto, 
capaz de asombrar al mismísimo 
Sherlock Holmes. 


encontrar. 

En el castillo nos 
encontraremos con dos tipos de 
enemigos. Los ratones, que nos 
mordisquearán las piernas 
robándonos energía, y unos 
gruesos pollos, que en su 
continuo vuelo, nos picarán en 
la cabeza. 

La es trategiá para aca bar con 
los primeros es ofrecerles queso, 
que saciará su apetito, estos 
trozos de queso podremos 
conseguirlos en algunas de las 
habitaciones de la casa. Contra 
los pollos, por contra nada 
p'odremos hacer salvo evitarles. 

Todos, absolutamente todos 
los objetos que se encuentran 
desperdigados por la casa, 
pueden o bien cogerse, pulsando 


Nada más llegar al lugar de 
los hechos, nuestro detective 
descubrió que las joyas nunca 
habían salido del castillo, y que 
el ladrón, seguramente algún 
miembro del servicio, había 
debido distribuir y esconder las 
12 gemas en las múltiples 
habitaciones del castillo. 

Ésta será precisamente nuestra 
tarea, encontrar las 12 piedras y, 
una por una, llevarlas hasta la 
habitación de la nerviosa 
baronesa que las espera. Un 
contador, encima de la cómoda, 
nos advertirá del número de 
joyas que aún nos quedan por 
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A pesar de que la 
ubicación de algunas 
¡oyas resulta, más o 
menos evidente, 
existen otras 
perfectamente 
ocultas. 


i 



En la cocina nos espera una ¡oya 
y una barra de hielo. 


En cuanto suene el 
teléfono, debemos 
cogerlo y dirigirnos a 
retirar muebles. 
Cuando acabe el 
zumbido es mejor 
volver a la planta 
baja. 


La habitación de la baronesa 
que espera las joyas. 
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Con un trozo de queso es fácil 
entretener a los ratones. 



I 

La puerta es imposible de abrir. 


la barra espadadora, o 
arrastrarlos para ubicarlos en un 
sitio que nos convenga, excepto 
claro está, los más pesados. 

Si suena el teléfono y lo 
cogemos obtendremos absoluta 
inmunidad mientras dure el 
zumbido. Será la única forma de 
desapilar la enorme cantidad de 
muebles, que nos impiden el 
paso al resto del castillo. 

A continuación vamos a 
detallar la forma de conseguir 
cuatro de las preciadas gemas. 

La primera de ellas se 
encuentra en la cocina, bajo la 
tabla del mueble del fondo, nos 
arrimaremos y tiraremos hacia 
atrás con «intro», al descubrirse 
el hueco subimos arriba y 
cogemos las gemas, después a 
correr y a llevarlas a la 
habitación de la baronesa que se 
encuentra arriba. 

Para la segunda joya 
deberemos igualmente dirigirnos 
a la cocina. En el mueble que 
hay similar al anterior, y 
mediante el mismo método 
recogeremos la barra de hielo. 
Una vez la tengamos en nuestro 
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Tras la chimenea 

una nueva piedra. 


poder, iremos al salón y con 
cuidado de no quemarnos 
depositaremos el helo en el 
fuego. Después tiraremos del 
cenicero, descubriendo la 
segunda joya. 

Para la tercera deberemos 
dirigirnos al billar, y 
disponernos a echar una partida 
de este noble juego. Las bolas 
deberán ser introducidas, 
empujándolas con nuestros pies, 
en los agujeros pero, cuidado, el 
orden debe ser el siguiente: rojo, 
amarillo, verde, naranja, azul, 
marrón y negra. AI colar la 


última, la joya caerá bajo la 
mesa. La única forma de sacarla 
de este lugar, es trayendo 
objetos, alinearlos y empujando 
desde el extremo, arrastrar la 
joya. 

Una vez retirado el montón de 
muebles, que tapa la puerta 
superior, descubriremos un 
montón de mesas, en la última, 
en el rincón izquierdo, 
encontraremos la siguiente joya. 
Para retirar las mesas, es 
indispensable conseguir que las 
sillas queden alineadas 
perfectamente, para reducir el 
espacio que ocupan. 

El resto de la búsqueda, 
conlleva más o menos el mismo 
despliegue de inteligencia e 
ingenio que estas tres primeras 
joyas. Como recomendación, 
intentar todo, y no olvidar mirar 
detrás de los cuadros saltando 
paralelos a ellos, nunca se sabe. 

En general Inside Outing sólo 
puede calificarse como un gran 
juego, de excelente desarrollo, 
sorprendentes gráficos y un gran 
despliegue de imaginación y 
buen gusto ■ 
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JUEGOS 


I 



La venganza 
de Doh 


Mientras en los últimos 
años la vida ha ido 
transcurriendo plácida¬ 
mente aquí en la Tie¬ 
rra, cerca del anillo de 


asteroides y apoyado por la última de sus bases en Gani- 


medes, Doth, junto con sus maquiavélicas fuerzas, se ha 


conjurado para una nueva batalla. 


uando aún está fresco en la 
memoria de todos el magní¬ 
fico supcr-areade, «Arka- 
noid», llega ahora una nueva ver¬ 
sión de este juego que pretende, y 
logra, desbancar totalmente al an¬ 
terior. La dinámica del juego no 
presenta novedades, diferentes la¬ 
drillos agrupados en formación 
que habrá que derribar uno a uno 
hasta acabar con todos. 

El cambio más importante se en¬ 
cuentra en que cada nivel se com¬ 
pone de dos pantallas distintas. Pa¬ 
ra acceder a una o a otra, debere¬ 
mos optar por la puerta derecha, 



Comienza la aventura. La primera 
pantalla no es de las más fáciles. In¬ 
sistir sobre el blindaje de los ladrillos 
es la única alternativa. 


o por la puerta izquierda cuando 
hayamos finalizado el nivel prece¬ 
dente. 

Otro de los cambios está en los 
nuevos tipos de ladrillos. Existen 
básicamente cuatro tipos: 

Ladrillos de colores: se destru 
yen al primer golpe y algunos suel 
tan cápsulas que podemos recoger 

Ladrillos blindados: deben ser 
golpeados cinco veces antes de ser 
derribados. 

Ladrillos atitorregcnerablcs: eo 
mo los blindados, pero transcurrí 
dos algunos segundos tras su des¬ 
trucción vuelven a aparecer. 















NIVEL 2 


Indudablemente la mejor opción es la de la izquierda. 
Si logramos pasar la primera linea que cubre el ladrillo 
móvil, el resto es sencillo. 



NIVEL 7 


' 'i, : 






La pantalla izquierda resulta tremendamente complica¬ 
da por la gran cantidad de ladrillos indestructibles. Lo 
mejor, insistir por la derecha. 


prr 

Nuevamente cambiamos de tercio. La pantalla izquier¬ 
da presenta pocos problemas, la derecha por contra 
resulta difícil y sobre todo pesada de pasar. 


La pantalla derecha 
resulta realmente 
terrible, si entramos 
en ella difícilmente 
lograremos termi¬ 
nar nuestra tarea. 


Para salir de 
la pantalla 
derecha só¬ 
lo hay una 
forma: pe¬ 
netrar por 
los pasillos 
laterales. 
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NIVEL 13 




flt COMO EN 
A RKANOI I) 1, EL 
TECLADO RESULTA 
MÁS EFICAZ QUE 
EL JOYSTICK 


Difícil opción. Personalmente optaría por la izquierda, los 
ladrillos móviles que cubren los pasillos centrales, pueden 
ayudarnos si actuamos con precisión. 

NIVEL 14 


Sin excesiva diferencia, el nivel izquierdo resulta algo más 
fácil. Una vez roto el primer muro blindado, el resto es sen 
cilio. 


NIVEL 10 


NIVEL 8 
































































NIVEL 9 


TRAS UNA f » 
CÁPSULA 
DESTRUCTORA 
SIEMPRE VIENE 
UNA “IV Y 
DESPUÉS LA QUE 
(■» ARRE LA PUERTA 


Por el número de ladrillos con premio, resulta mucho más 
simple la derecha. En la izquierda la abundancia de la¬ 
drillos indestructibles dificulta la tarea. 


NIVEL 12 


NIVEL 11 


La izquierda resulta extremadamente difícil, la dere¬ 
cha también. El hecho de que los ladrillos de la izquier¬ 
da se repongan aconseja huir por la derecha. 


Nuevamente la abundancia de ladrillos con premio, los 
de colores, nos hacen decidimos por la zona izquierda. 
Atacar por los pasillos laterales. 


Nuevamente el lado derecho es el más peligroso, con 
además grandes posibilidades de que el ordenador se 
cuelgue al entrar la bola en un bucle cerrado, si es asi 
apague y vuelvá a cargar. 


La izquierda es la única alternativa, si opta¬ 
mos por la derecha difícilmente pasaremos 
al siguiente nivel. Si se atreve, active el la¬ 
drillo para que al moverse deje paso libre. 


que nos obliga a apagar el ordena¬ 
dor y a comenzar de nuevo. 

I n líneas generales «The Reven - 
ge of Dolí» es un gran programa, 
que explota al máximo las posibi¬ 
lidades de nuestro CPC y con un 
nivel de adicción de los más altos 
de los encontrados hasta ahora. 


guir, aunque viendo cada uno de 
los niveles cada uno puede decidir 
su camino. 

□ juego, frente a la primera ver¬ 
sión, ha ganado en aspecto, velo¬ 
cidad y movimiento, aunque en al¬ 
gún nivel, rara vez por fortuna, la 
bola queda encerrada en un bucle 


Ultima de esta fase, 
pero no del juego, 
nueva carga y... la 
aventura continúa, 
pero ahora como di¬ 
jo el profeta: es ya 
momento de que 
caminéis solos. 
Suerte. 


NIVEL 15 


NIVEL 16 
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Cuando, poco a poco, se ha 
alcanzado ya toda la plenitud 
gráfica en el software de 
divertí mentó para CPC’s, es ahora 
sonido el que se covierte en protagonista. 
De esta nueva etapa, Northstar puede ser 
considerado como una buena muestra. Una 

de las mejores muestras. 


L a colocación de baterías 
antiplásmicas en el cinturón 
amarillo intergaláctico iba a 
suponer la derrota definitiva del 
ejército terráqueo. 

No obstante aún quedaba una 
pequeña posibilidad, hacer llegar 
los mapas, que Mary López había 
sustraído sabe Dios con qué malas 
artes, al primer cónsul de Fobos. 
Ahora quedaba lo más peligroso, 
cruzar las líneas enemigas y llevar 


los importantes documentos hasta 
el centro de operaciones 
terráqueo. 

La total falta de combustible 
para los cazas de combate, así 
como para cualquier otro 
vehículo, hacían indispensable la 
utilización de un superhombre que 
con la velocidad del viento 
cruzase los 10 niveles enemigos, 
enfrentándose un innumerable 
contingente de tropas alienígenas. 
Sólo Heniac, un androide de la 
serie Carlewis XI1, especialmente 
diseñada para competiciones 
olímpicas, podría enfrentarse con 
la difícil hazaña. Como única 
defensa, y dado que Heniac no 
había sido aleccionado en la 
utilización de armas láser, un 
único brazo mecánico, capaz, eso 
sí, de atravesar un muro de 30 
centímetros de acero. 

Preparados..., en sus marcas..., 
listos..., ¡Ya!. 

NorthStar es un nuevo arcade 
de cosecha británica, firmado por 
la prestigiosa Gremlins Graphics, 
y que ahora llega a España, tal y 
como es habitual en los productos 
de esta compañía, de la mano de 
Erbe Software. 

El programa sorprende ante 
todo por la velocidad de nuestro 
héroe, capaz de desplazarse 
vertiginosamente por la infinidad 
de pantallas del juego. 

Como bueno, muy bueno 
incluso, destaca un sonido 
esmeradísimo con un efecto de 
frenada sólo calificable como 
fantástico, así como unas 
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pantallas perfectamente 
desarrolladas, con gráficos muy 
atractivos y gran variedad de 
colores. 

Por contra el juego es quizás 
excesivamente monótono, tanto en 
sus pantallas, demasiado 
repetitivas, como en su 
argumento: avanzar, destruir 
y que no nos destruyan. 

Lo mejor del juego se encuentra 
sin duda en la velocidad de 
nuestro héroe, que en muchas 
ocasiones costará trabajo 
controlar. Hay que tener especial 
cuidado con la parada. Al no ser 
instantánea (habrá un 




En situaciones difíciles 
lo mejor es detenerse 
y agacharse o salta 
para evitar los 
enemigos. 
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desplazamiento de algunos 
metros), está se dificulta. 

Cada vez que seamos 
alcanzados por un láser enemigo 
o rozados por una cápsula 
alienígena caeremos al agua, con 
un «flushhh..» perfectamente 
conseguido. 

Para los amantes de los paseos, 
ofrecemos este cargador, capaz de 
«cargarse» a todos los bichos, y 
que permitirá a los más perezosos 
jugar del principio al final sin un 
solo rasguño. No obstante, los 
que gusten de un poco más de 
emoción, podrán escoger sólo la 
opción de vidas infinitas, que les 
permitirá acabar el juego, no sin 
antes pasar casi una hora de 
apuros y peleas. 

Una observación más: el 


cargador sólo vale para la versión 
cinta. Para su correcta utilización 
basta con teclearlo, ejecutarlo 
e introducir en el cassette la cinta. 


CARGADOR DE CINTA 


10 REH Cargador del Horth star 
20 REH Pedro José Rodriguez-88 
30 NODE 1:F0R n=4A000 T0 4A04B:READ 
at:P0KE (i l VAl('l’*at):N£XT 
40 INPUT'Vidas infinitas";at:IF UPP 
ERt(a4)=’S'THEH POKE 4A01F,43C EL SE 
¡NP0T*Nu»ero de vidas*;a:IF a<>0 I 
HEN POKE 4A024,a 

50 INPUT'No Iiiitar vidas extra',-ai 
¡IF UPPERi(aÍ)=‘S'TH£N POKE 4A029,0 
E0 INPUT'Sin enemigos";a»;IF UPPERÍ 
(aí)=*S*THEN POKE 4A033.4C9 
70 INPUT'Oxigeno infinito*;a*íIF UP 
PER*(a*)=*S*THEH POKE 4A038,0:P0KE 
4A03D,0 

80 IHPUT'Iniune a todo';a*:IF UPPER 

*(a*)=*S , THEN POKE 4A042.0 

90 INPUI‘Nuiero de niveles*;a:IF a( 

>0 THEN POKE 4A02E.avi 

100 PRINT:PRINT"Inserta cinta origi 

nal.,.*:0N ERROR SOTO 110:¡TAPE 

110 F0R n=l T0 1000:NEXT:H0DE 0:HEH 
ORY 43FFF:LOAD 1 ! 1 ,14000:CALI 4A000 
120 DATA F3,21,0,40,11,0,1,1,0,2,ED 
,80,21,1E,A0,11,0,3,ED,53,5,1,1,28, 
0,ED,80,C3,0,1,3E,35,32,C,29,3E,4,3 
2,9D,28,3£,00,32,7,2D,3E,A,32,EE,15 
,3E,CD,32,85,22,3E,3D,32,30,2B,3E,E 
0,32,E4,2B,3E,5,32,D0,C,C3,DA,A 

130 'Vidas infinitas.POKE 4290C 

,43C 

140 'Hulero de vidas.POKE 42B9D 

1 11 

150 'Mo Iiiita extras....POKE 12807 
,0 

ISO 'Sin eneiigos.POKE 422BB 

,IC9 

170 'Oxigeno infinito....POKE 42B30 

,0 

1B0 ’ POKE 42BE4 

,0 

190 'Imunidad.......POKE 4CD0, 

0 

200 ’Nuiero de niveles...POKE 115EE 
, n +1 
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Una lucha 
desesperada 


| Ref. 5 


Por el título del jueqo, to- 


ueao, 

¡ a las c 


dos los aficionados a las pe¬ 
lículas de Schwarzenegger 
sabrán cuál es el tema, ya 
que está basado en la pelí¬ 
cula del mismo nombre. 

El objetivo del comando a 
tus órdenes es rescatar a un 


SCHWARZENEGGER 



grupo de diplomáticos cap¬ 
turados por la guerrilla su¬ 
damericana. 

Para lograrlo hay que in¬ 
ternarse en una jungla llena 
de peligros y enfrentarse a 
una encarnecida batalla 
contra los guerrilleros. Todo 
esto, para especialistas co¬ 
mo los que diriges, no pre¬ 
senta demasiados proble¬ 
mas. Sin embargo, el mayor 
enemigo que encontrarás 
no serán los hombres ni la 
naturaleza. Un misterioso 
alienígena ha convertido 


Ptwinsa 

Telf.:276 22 08 f 

Gato: 880 

Disto: 2.495 • I 


ese terreno en su territorio 
de caza. Su comida: seres 
humanos. 

Tanto en movimiento co¬ 
mo en gráficos y color, el 
juego alcanza un buen ni¬ 
vel. En definitiva un juego 
muy «movido», y sin duda 
muy entretenido para los 
amantes de las emociones 


fuertes. 

Originalidad 

Uj C2 [j¿J C2 O 

Gráfico* 

Movimiento 

QQIQQQ 

Sonido 

E2 G3 □ □ Q 

Dificultad 

Qaaao 

Adicción 
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pueden elegir entre 16 cir¬ 
cuitos, que corresponden a 
los 16 países que integran el 
Campeonato del Mundo de 
Fórmula 1 de 1987. Se se¬ 
leccionan pulsando el nú¬ 
mero al que corresponda, 
seguido de Enter. Llegar al 
final del juego, conseguir el 
título mundial pueden con¬ 
vertirse en una de esas ha¬ 
zañas que no se olvidan fá¬ 
cilmente. Desde luego, sólo 
por la experiencia vale la 
pena participar, lanzándo¬ 
se a la carretera sin límite de 
velocidad. 




NlGEL MANSELL'S 
GRANO PRIX 
Emoción 
en las pistas 
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Ref. 6 



La intención de los crea¬ 
dores de este simulador, 
además de reproducir la ve¬ 
locidad, emoción y el peli¬ 
gro de las carreras, ha sido 
realizar el primer simulador 
de carreras de coches ca¬ 
paz de reflejar los últimos 
avances en cuanto a diseño 
y tecnología de automóvi¬ 
les. El objetivo es lograr que 
la experiencia dentro de la 
cabina del piloto sea lo más 
real posible. 

Sin embargo, el juego en 
sí es sencillo de manejar. Se 


Originalidad 
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Gráficos 


Energy warrior 
Protege 
el planeta 


Dro Soft ML- 24 38 82; 
finonfirMr 


I Ref. 7 


El hermoso planeta en 
que vives, con cielo azul, 
plantas y agua, se ha visto 
enturbiado por la contami¬ 


nación. La situación ha lle¬ 
gado a un extremo tal que 
se ha hecho necesario crear 
un aura protector que man¬ 
tiene el aire y la tierra libre 
decontaminación. Funciona 
con generadores distribui¬ 
dos por zonas. Tú eres el vi¬ 
gilante de algunas de ellas. 
Todo va bien hasta el día 
que llegan seres del espacio 
exterior dispuestos a acabar 
con todo esto. 
Desde tu nave 
deberás exter¬ 
minarlos antes 
de que estro¬ 
peen los gene¬ 
radores y elimi¬ 
nen a los seres 
humanos. 

La batalla ten¬ 
drá lugar a tra¬ 
vés de unos grá¬ 
ficos llenos de 


coloridos y con un buen mo¬ 
vimiento. Algo que siempre 
se agradece. 
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Plasmatron 
V igila tu escudo 
Megaespacial 


BraSÉfl ME: 146 38 02 
Sin Mfimw 
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Si lo que buscas es pasar 
un buen rato con un arca- 
de, el típico matamarcia- 
nos, sin duda éste es un jue¬ 
go apropiado. 

En cuanto al tema no hay 
mucho que decir. Se trata 
de coger el ¡oystick, guiar 
nuestra nave y matar a to¬ 
dos los enemigos que poda¬ 
mos hasta llegar a la base. 
Ahí se acaba. Los marcado¬ 
res inferiores nos indican los 
escudos, desperfectos, láser 
y distancia al objetivo. Si el 
escudo llega a cero, la par¬ 
tida se terminará. Sin em¬ 
bargo, cuando no nos ata¬ 
can se incrementa sola. 

El movimiento y los dispa- 
” ros son lentos, pero los grá¬ 

ficos son aceptables. En de- 

4 





finitiva un juego sin compli¬ 
caciones, para pasar un ra¬ 
to, y fácil de acabar. 


Originalidad 
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Gráfico» 
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SlDE ARMS 
Enfréntate 
a Bozon 


tibe 
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| Ref. 9 

□ 

Nos 

encontramos ante 


uno de esos juegos en los 
que cuenta, por encima de 
todo, la capacidad de tus 
reflejos y la habilidad para 
esquivar a los enemigos. Su¬ 
jeta el joystick con fuerza y 
prepárate para una encar¬ 
nizada batalla. 

Bozon quiere exterminar 
toda la vida del planeta 
azul, es decir, de la tierra. 
Tú estás a los mandos de la 
nave que debe salvar al 
planeta de su total destruc¬ 
ción, a través de una gran 
cantidad de aparatos ene¬ 
migos, dirigiéntote a las 
profundidades marinas 
donde, por último, tendrás 
que eliminar el arma secre¬ 
ta de Bozon: el «Mobil Ar- 
mour Sentipet». 

El movimiento y los gráfi¬ 
cos están bien realizados. 


Además, el entretenimiento 
está asegurado. Prepárate 
y no lo dudes. 





propia raza. Chronos creó 
una raza muy poderosa con 
una inteligencia muy alta, 
llamados Mysti- 
cal Dimensión 
Weavers. Sin 
embargo, se 
volvieron ambi¬ 
ciosos y se rebe¬ 
laron contra su 
creador. En vis¬ 
ta de la situa¬ 
ción, los siete se¬ 
ñores enviaron 
a cuatro héroes 
para derrotar a 
los Weavers y li¬ 
berar a Chronos. 




Chronos 

La rebelión 
de las Weavers 


Ora kit Tetf.: 246 38 02 
Sin confirmar 


| Ref. 10 

En un principio, cuando el 
Universo era ¡oven, existían 
siete señores, siete dirigen¬ 
tes, que se repartían el do¬ 
minio de todo lo conocido. 
Cada uno de ellos creó su 
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Para alcanzar este obje¬ 
tivo, deberás luchar a lo lar¬ 
go de seis niveles diferentes, 
infestados de los horribles 
enviados de los Weavers 
que tratarán de impedir el 
rescate. A medida que nos 
acercamos a la cueva en la 
que está Chronos, el núme¬ 
ro de nuestros enemigos se 
incrementará. 
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Platoon 

Guerra a muerte 
en la jungla 
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Basado en la famosa pe¬ 
lícula del mismo título, Pla¬ 
toon te introduce en un 
mundo tan duro como la 
guerra de Vietnam. No se 
trata únicamente de sobre¬ 
vivir físicamente, también 
debes cuidarte psíquica y 
moralmente, ya que cuando 
se hunda la moral de la 
compañía, el juego habrá 
terminado. 



Originalidad 
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Gráfico* 
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Una vez en la jungla, ten¬ 
drás que registrar una al¬ 
dea y ofrecerte voluntario 
para registrar una red de 
túneles llenos de enemigos, 
para acabar luchando en 
una trinchera y otra vez en 
la jungla. Para acabar el 
juego con vida, tendrás que 
matar al sargento Bornes, 
responsable de la muerte 
del sargento de tu compa¬ 
ñía, Elias. 

En definitiva, un juego en 
el que es necesaria toda tu 
rapidez. Sus gráficos y mo¬ 
vimientos están muy logra¬ 
dos. 


Fifth quadrant 

Carrera contra 
el tiempo 



Orion es una nave galác¬ 
tica de reconocimiento que 
tiene la misión de explorar 
y hacer un plano del Pelo¬ 
tón Hércules. 

Durante el viaje, la tripu¬ 
lación se somete a un pro¬ 
ceso de Consumo de Baja 
Energía Prolongada. 

La tripulación que tú diri¬ 
ges está compuesta por 
cuatro robots. Cuando os 
reactiváis descubres que ha¬ 
béis sido invadidos por unos 


terribles Aliens, 
los zimen, que 
se han dedica¬ 
do a destruir 
muchos de los 
sistemas y com¬ 
putadoras de 
la nave y repro¬ 
gramar otros 
en un idioma 
aliens. 

Tu objetivo 
desde ese mo¬ 
mento es hacer- 


Championship 

SPRINT 

Pisa el acelerador 
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te otra vez con el control de 
nave en una desesperada 
carrera contra el tiempo. 
Hay que hacer muchas co¬ 
sas antes de que se agote la 
energía. 

Un nuevo juego de mar¬ 
cianos, en el que los refle¬ 
jos y la velocidad son la 
clave. 
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Lo que tienes 
que hacer es po¬ 
nerte a los man¬ 
dos de tu vehí¬ 
culo y acelerar. 
El resto es tan 
sencillo como 
conducir a toda 
velocidad por 
un circuito lleno 
de curvas en el 
que compitan 
cuatro coches. 

Si no quieres 
jugar solo con¬ 
tra el ordena¬ 
dor, siempre puedes invitar 
a algún amigo y armados 
de dos joysticks intentar de¬ 
rrotar a los campeones del 
ordenador. Los gráficos y el 
color están bastante bien lo¬ 
grados, pero, sin duda, lo 
más importante en estos 
juegos es el movimiento. Y 
en este caso está simulado de 
una manera muy acertada. 
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minio, 

PCISI2 l 


SHOOm í! 


GRUPO AMSTRAD ESPAÑA 


SOFTWARE MICROBYTE - JUEGOS 


LO ÚNICO 
DIFÍCIL 

DE ENTENDER 
DE NUESTROS 
PROGRAMAS, 
ES LO INCREÍBLE 
DE SUS PRECIOS 


* w 

: ,-S 


JUEGOS 


-LA ISLA DEL TESORO 

- PERRY MASON 

-9 PRINCIPES EN AMBER 

- DRAGONWORLD 

- CYRUSIICHESS 

- SUMMER 6AMESII 
-WINTER GAMES 
-GOLF (MEAN 18 GOLF) 

- PITSTOP II 

- SNOOKER (ALEX HIGGINS SNOOKER) 

- EL ENIGMA DE ACEPS 

- GAMMA GAMES 

- RARCHPLAY (Parchís) 

- FAHRENHEIT 451 

- CITA CON RAMA 

lodosa . ... 3.500 Pta& + < VA 
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The chessmaster 
2000 

Jugar <on un 
Gran Maestro 


DmM Mf.: 24 é 33 02 
Den: 4.700 ros. 
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Este programa de aje¬ 
drez es, para nuestro gus¬ 
to, el que mejor juega en 
aquellos niveles en los que 
el tiempo de espera es ra¬ 
zonable. Chessmaster, in¬ 
corporándose a la corrien¬ 
te actual, posee dos table¬ 
ros en tres y dos dimensio¬ 
nes. El primero es real¬ 
mente espectacular. El pro¬ 
grama implementa una 
enormidad de opciones, 
accesibles todas ellas des¬ 
de menús tipo ventanas. 





Los creadores del juego 
han previsto todo: salida 
por impresora, visualiza- 
ción de la notación alge¬ 
braica en el tablero, gra¬ 
bar y cargar desde disco, 
etc., etc. Además, en el 
disco se incluyen 100 par¬ 
tidas de las más famosas 
de la historia de este jue¬ 
go, comenzando en el si¬ 
glo XVII. Creemos estar 
frente a un gran programa 
de ajedrez, tanto para el 
principiante como para el 





no parece demasiado ori¬ 
ginal. Sin embargo, el de¬ 
sarrollo del juego es bas¬ 
tante atractivo. Los ins¬ 
trumentos de vuelo y los 
sistemas armamentísticos, 
que incluyen los más so¬ 
fisticados misiles en la par¬ 
te superior de la pantalla. 
En la inferior se hallan los 
controles con los que po¬ 
dremos controlar la velo¬ 
cidad, el balanceo de la 
nave y la altura. 

En definitiva, un simu¬ 
lador y un arcade en un 
solo juego, con gráficos y 
color agradables. 
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Dificultad aaauu 
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ordenador será uno de los 
participantes. Además, te¬ 
nemos la posibilidad de 
grabar la partida y volver 
a ella en el momento que 
más nos convenga. 


iniciado. 
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Parchís 

Un juego 
de siempre 


Icckrt» Mf.: 442 54 44 
ira* 3.920 pt«. 
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Cualquiera de nosotros 
ha jugado alguna vez al 
Parchís, de manera que 
aunque haya sido sobre 
un tablero las reglas del 
juego son sobradamente 
conocidas por todos. Cuan¬ 
do empezamos la partida 
podemos elegir el número 
de jugadores, entre dos y 
cuatro. Si queremos, el 


En cuanto al aspecto 
técnico del juego no hay 
mucho que decir. Los grá¬ 
ficos y el sonido (que es 
opcional) son los norma¬ 
les en este tipo de juegos 
para PC. Sin embargo, sí 
es conveniente resaltar 
que, en ocasiones, algunas 
de las fichas no se distin¬ 
guen con la claridad que 
sería de desear. 
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Proweler 

Guerra 
en el 2150 


Oro Soft TeH.: 246 38 02 
Disco: 47M plus. 
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A los mandos de un ul¬ 
tramoderno avión de com¬ 
bate, tendrás que defen¬ 
der el planeta en el que vi¬ 
ves de los furiosos ataques 
de unos alienígenas. 

Este tema en si mismo 

































































































Test drive 

Locos por 
la velocidad 


DraSafl M.: 246 38 02 
Disco: 4.700 pías. 


I Ref. 18 


Una de las aficiones 
más extendidas son los co¬ 
ches. Quizá por eso este ti¬ 
po de juegos en los que se 
simula la conducción de 
un coche tienen tanto éxi¬ 
to. Y más, como es el ca- 




DRAGONWORLD 



Dragonworld 
U n mundo 
de fantasía 


Mkrabyta M.: 442 54 44 
Disco: 3.920 pías. 


Ref. 19 


SÜ <r 


so, si tiene un buen aspec¬ 
to gráfico. 

En Test Drive puedes 
elegir hasta cinco coches. 
Las claves para alcanzar el 
objetivo están en la rapi¬ 
dez y tu habilidad para sor¬ 
tear las curvas y obstácu¬ 
los que se encuentran en la 
carretera. ¡Ah! Cuidado 
con la policía. 



Originalidad 
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Otro juego de aventu¬ 
ras, situado en un entor¬ 
no un poco más familiar 
al aventurero: se trata de 
^alvar al Último Dragón. 
Para ello hay que empren¬ 
der un viaje. Mientras és¬ 
te dure, el personaje se ve 
enfrentado a peligros y si¬ 
tuaciones de todo tipo, las 
cuales debe resolver con la 
astucia o con la fuerza. Es 
de destacar el enfoque grá¬ 
fico del programa, así co¬ 
mo el lenguaje que se usa. 
Casi castellano normal, 
dentro de una serie de ló¬ 
gicas restricciones. Los 
aventureros puristas pue¬ 
den anular la opción grá¬ 
fica y arreglárselas sólo 
con información textual. 
Es esencial, como el pro¬ 
pio juego advierte, hacer¬ 
se un mapa a medida que 
recorremos el mundo de 
Dragonworld. Es posible 
salvar situaciones distintas 
del juego en disco y recu¬ 
perarlas en cualquier mo¬ 
mento, para continuar 
desde ellas si la cosa se nos 
pone difícil. 
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Vegas casino 

¿Quién da más? 


Día Soft Te».: 246 38 02 
Disco: Piído sin «afirmar 
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Dentro del amplió cam¬ 
po de los juegos de simu¬ 
lación, este nos trae a la 
pantalla tres actividades 
reinas de los más famosos 
casinos: blackjack, poker 
y Jackpot, más conocido 
en nuestro país como má¬ 
quinas tragaperras. Apar¬ 
te del realismo con que es¬ 
tén simulados los juegos, 
es decir, de lo difícil que 
sea batir a la máquina en 
juegos como el poker o el 
blackjack, también cuen¬ 
tan los gráficos y la forma 
de usar el programa. 

Estos tres aspectos es¬ 
tán bien cubiertos en Ve¬ 
gas Casino. La probabili¬ 
dad de levantarnos del te¬ 
clado del PC sin camisa es 



agradablemente alta, con 
lo que la adicción y el pa¬ 
sar ese buen rato que nos 
hace falta a todos está ase¬ 
gurado. 
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PERRY MASON 
El taso 


del asesinato 
en el Mandarín 
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El famoso abogado 
americano se ve abocado 
a resolver un caso de ase¬ 
sinato: ha muerto el due¬ 
ño de una cadena de res¬ 
taurantes. Los candidatos 
a liquidarlo se cuentan 
por docenas. Se trata de 
un juego conversacional, 
de inteligencia, en el que 
existen gráficos de bastan¬ 
te alto nivel. Uno se co¬ 
munica con el programa 
de manera acosl timbrada: 
a través de órdenes de un 
vocabulario limitado, pe¬ 
ro muy bien conseguido. 
Es de destacar el interés y 
adicción del juego, así co¬ 
mo su impecable presen¬ 
tación, en la cual se nos da 
una serie de importantes 
datos para resolver el 
enigma. 
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Las reglas de funcionamiento^ los programas pasadores de cinta a disco_son las siguientes: 

A) Deberemos copiar y salvar en disco antes de ejecutarlos, tanto los programas salvadores 

de los juegos en disco, como los destinados a cargarlos desde el mismo. _ 

B) Cargaremos en memoria el programa salvador en disco eJntroduciremos la cinta en el cassette. 
Ejecutaremos el programa pasador y seguiremos sus instrucciones, si es que nos las pide. 
Posteriormente cargará el programa y lo pasará a disco. 

C) Aunque en algunos juegos no es necesario el programa cargador de disco , sí lo es 
en la mayoría. La manera de utilizarlo es la siguiente: una vez que tengamos en memoria 
el programa cargador, introducirem os el d isco donde se halle el juego a cargar y ejecutaremos 
■ el programa cargador. Después... ¡a jugar! 


\ 


LAS TRES LUCES 
DE GLA URUNG 

10 REH LAS TRES LUCES DE GLAURUNG 
20 REH DAVID ALVAREZ DE8R0Í 
30 CLS:F’RINT"Inserta cinta original 
y el disco con al teños 58K y puls 
a una tecla":CALL LBB1E 
40 'TAPE. IN: IDISC.OUTiOF'ENOUÍ'a* 

50 MEMORY 1000:NODE 1:BURDER ü: INK 
0,0:INK 1,25:INK 2,10:INK 3,15 
60 LOAD" !C 

70 F0R n-&A49A T0 M4E7:READ aí:P0K 
E n,VAL( , i“fa$):NEXT 



80 CALL 42100 

30 DATA 6,C,21,D0,A4,11,0,C0,CD,3C, 
BC 

100 DATA 3E f 2,2Í,0,CO,11 f 0,40,CD,9B 

a, 8c 

110 DATA CD,8F,BC,3E,2,21,78,5,11,F 
C,3£ 


120 CD,8 C,BC,3 E.2,21,78,5,11,FC,9 
E 

130 DATA 1,CA,A0,CD,38,BC,CB,BF,BC, 
C‘3,50 

140 DATA 41,4E,54,41,4C,4C,41,2E, 53 
,43,52 

150 DATA 47,4C,41,55,52,55,4E,47,2E 
,42,43,43 


10 REM CARGADOR DE GLAURUNG 
20 REM DAVID ALVAREZ DEBR0T 
30 OPENOUT'a’ 

40 MEMORY 1000:B0RDER 0:INK 0,0:INK 
1,25:INK 2,10:INK 3,15 
50 CL0SE0UT 

SO LOAD'pantallas.scr'iLOAD’Glaurun 
9 

70 REM ABUI P0KES 
80 CALL MOCA 


STOP BALL 


10 REM Pasa de cinta a disco STOP B 
ALL 

20 ITAPE,IN:¡DISC.0UT 
30 CLS:L0CATE 1,10:PRINT’Introduce 
cinta original y disco con al «enos 
50K libres -Pulsa una tecla-’ 

40 0PEN0UT"D’:HEM0RY 999.-CL0SE0UT 
50 M0DE I:B0RDER 0:INK 0,0:INK 3,26 
60 LOAD ‘.'pantalla.bin",iC000:SAVE" 
PANTALLA*,B,iC000,L4000 
70 LOAD'!figur”,1000:SAVE“FIGUR’, B, 
1000,7168 

80 LOAD*igaee",8000:SAVE*GAME",B,80 
00,18432 

90 LOAD*Itusbol*,30000:SAVE'MUSBOL" 
,8,300002043 


100 M0DE 1 
110 CALL 8000 
120 GOTO 110 



10 REM CARGADOR VERSION DISCO STOP 
BALL 

20 REM DJ-30FT 

30 0PEN0UT "D":MEMORY 999:CL0SE0UT 

40 M0DE 1.-B0RDER 0: INK 0,0: INK 3,26 

50 LOAD’!pantalla.bin",í(COOO 

60 LOAD*!figur*,1000 

70 LOAD*IGAME",8000 

80 LOAD*Itusbol*,30000 

90 M0DE 1 

100 CALL 8000 

110 GOTO 100 


FÓRMULA I 


10 REM PASO CINTA ===> DISCO F0RMUL 
A 1 

20 REM JUAN JOSE ESPINOSA GARCIA 
30 ¡TAPE,IN:¡DISC.QUT 


52 AAíS'l'RAD Personal 





























































40 HODE 2:LOCATE 15,10:PRINT "INSER 
JA CINTA ORIGINAL Y DISCO CON 32K Y 
PULSA UNA TECLA': CALL t<BB03:CALL ti 
BB18 

50 OPENOUT"D':HEHÜRY 4999:CLOSEOUT 
60 L0AD"FC0D£*,6000 
70 SAVE'FCODE",B,6000,31200,6000 


10 REH CARGADOR COPIA DE DISCO DE F 
ORNULA 1 

20 REH JUAN JOSE ESPINOSA GARCIA 
30 INK 0,0: INK1,26: BORDER O.-MODE 1 
40 LOCATE 11,10:PRINTTORMULA 1 SIN 
ULATOR' 

50 OPENOUT“D“:hEHORY 4999:LOAD’FCOD 
E",6000 
60 CALL 6000 


CAMPEONES DEL 
MUNDO DE 
RALLYES 


10 REH PROGRAHA CINTA ==>= DISCO 
20 REH DEL CAHPEONES DEL HUNDO DE R 
ALLYES 

30 REH POR JAVI HONTON ECHEVERRIA 
40 ¡TAPE.IN:¡DISC.OUT 
50 HODE O 

60 FOR A=0 TO 15-.READ B:INK A,B:NEX 
T:DAT A 0,26,6,3,18,0,27,24,15,12,8, 
5,4,14,20,10 

70 PRINT'INTRODUCE UN DISCO CON ALH 
ENOS 49K Y PULSA UNA TECLA"¡CALL Í<B 
B18 

80 HODE 0:PRINT*N0 OLVIDES LA CINTA 
"¡CALL &B818 
90 HODE O 

100 LOAD"RALLE.SCR',iCOOO 
110 SAVE’RALLE.SCR",B,10000,^4000 
120 OPENOUT"D": MEMORY tiFFF: LOAD "RAL 
. BIN" ,1(1000 

130 SAVE’RAL.BIN",B.ilOOO,131697 
140 CALL O 


10 REH PROGRAHA CARGADOR DE LA VERS 
ION EN DISCO DE 

20 REH CAHPEONES DEL HUNDO DE RALLY 


ES 

30 REH POR JAVI HONTON ECHEVERRIA 
40 ¡DISC 
50 HODE O 

60 FOR A-0 TO 15:REAO B:INK A,B:NEX 

T:DATA 0,26,6,3,18,9,27,24,15,12,8, 

5,4,14,29,10 

70 LOAD "RALLE. SCR", ítCOOO 

80 OPENOUT'D*:MEMORY tiFFF:LOAD"RAL. 

BIN" ,í(1000 

90 CALL UOOO 


ABU SIMBEL 
PROFANATIOR 


10 REH DE CINTA ==> DISCO PROFANATI 

OH 

20 REH POR VICTOR ALVAREZ 
30 ¡TAPE.IN:¡DISC.OUT 
40 OPENOUT"D*:HEHORY &2AB:CLOSEOUT 
50 LOAD'C" 

60 POKE ír44A .tiFB:POKE M4B .tiC9 
70 CALL 43E8 

80 SAVE’ABUl. SCR", B,ItC OOO.MOOO 
90 SAVE"ABU2.PRG",8,M700,íi8ECB,U7 
70 

100 CALL O 


10 REH CARGADOR DEL PROFANATION 

20 REH POR VICTOR ALVAREZ 

30 HODE OiBORDER OiFOR N=0 TO 15:IN 



K N,0:NEXT 

40 LOAD’ABUl. SCR", ItCOOO 

50 FOR N-0 TO 15:READ A:INK N,A:NEX 

T 

60 HEHORY 11769:L0AD*ABU2" 

70 CALL M770 

80 DATA 0,13,26,12,24,9,18,10,20,1, 
2,11,4,8,3,6 


CONTRAPTION 


10 REH CONTRAPTION (CINTA-DISCO) 

20 REH POR EP ROH SOFT 

30 HODE hOPENOUT "D":MEMORY 14999: 

¡TAPE.IN:¡DISC.OUT 

40 LOCATE 1,24:PRINT "INSERTE CINTA 
ORIGINAL Y PULSE UNA TECLA":CALL i 
BB18:CLS 

50 LOCATE B,24:PRINT "CARGANDO PRIH 
ER BLOQUE":LOAD"!", 15000:SAVE’CONT" 
,B,15000,13700 

60 LOCATE 7,24:PRINT "CARGANDO PRIH 
ER BLOQUE":LOAD"!",15700:SAVE"C0NT1 
",8,15700,23700 
70 CALL O 


10 REH CARGADOR CONTRAPTION 
20 POR EP ROH SOFT 
30 OPEND'JT"P":H-HIHEtt:MEMORY 1999:H 
ODE 1:SPEED INK 20,20:PEN 1;INK 1,1 
1,22:INK 2,22,11:LOCATE 10,10:PRINT 
"LOADING";:P£N 2:PRINT“ CONTRAPT 
ION" 

40 LOAD"CONT u :CALL 28650:LOAD"C0NT1 
":CALL 23700 


Mándanos tus programas 

¿Se te ocurre algún juego inte¬ 
resante que pasar a disco?, ¿sí?, 
pues a qué esperas, envíanoslo. 
Nosotros tenemos algo interesan¬ 
te para ti de regalo. Enviar la car¬ 
ta a Amstrad Personal. Ctra. Irún 
km 12,400. 28049 Madrid. Refe¬ 
rencia «De cinta a disco» 
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lhsta sección está dedicada a todas las compras, ventas, 
clubs de usuarios de Amstrad, programadores y, en general, 
cualquier clase de anuncio que pueda servir la utilidad a los 
lectores. Todo aquel que los desee puede enviarnos su 
anuncio, mecanografiado, a: HOBBY PRESS, S.A. 
AMSTRAD Personal. Apartado de Correos 232. REF. MC. 
Alcobendas. Madrid. 


ANDALUCIA 


■ Cambio programas l J C, juegos, 
utilidades y profesionales. Tel. 

29 14 50, Granada. Preguntar por 
Diego. 


■ Cambio programas para PCW. 
Tengo gran variedad: juegos, gestión, 
gráficos, lenguajes. Enviar lista a José 
Hiizán. Ctra. de Málaga, 25, 2.° A. 
11203 Algeciras (Cádiz). 


ka 


I Vendo y cambio juegos y utilidades 
para Amstrad disco: Freddy Hardest, 
Bob Winner, Enigma de Accps, 
Exolon, en utilidades: DR Draw, 
Pagemaker, etc. Sólo Gijón, no 
responderé de fuera. Interesados 
llamar al tel. 14 32 32, preguntar por 
José (a partir de 15 horas). 


■ Vendo impresora Sekosha (80 
columnas), tracción y fricción, 
compatible con la mayoría de los 
ordenadores. Con muy poco uso y en 
perfecto estado. La dirección es: 
Carlos Rodríguez. Padre Arintero, 21, 
3. a . Aviles (Asturias). Tel. 57 94 43. 


■ Compro programas de toda clase 
para el PC 1512. Interesados escribir 
con lista a: Jesús Pérez Acosla. Avda. 
Cádiz Edificio Borrcll I, 5.° L. 18007 
Granada. 


■ Cambio programas Amstrad CPC 
6128, diseo. Tengo las últimas 
novedades, más de 400 programas. 

1 Iamar al tel. 77 08 51. O escribir a: 
Francisco Rodríguez Cabello. Calvario 
Edificio El Cisne, 4.° C. Marbclla 
(Málaga). 


Vendo juegos para Amstrad CPC y 
copio cualquier juego muy barato. 
Escribir a José Antonio González a 
Núñez de Balboa, 5, 4.° deha. La 
Calzada (Gijón). O llamar al 
32 83 92. 



Sábado Chip ”, de 17 a 19 h. 
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BALEARES 



■ Vendo CPC 6128 color, impresora 
DMP-3000, 2. a unidad de disco 
Vortcx 5 '/j” de 704 K cassette, 
Joystick, 200 programas en 47 discas 
de 3” y 46 cintas, revistas, libros, 
manuales. Todo por 195.000 ptas, o 
por separado. Ofertas a: Jaime 
Puigserver Oliver. Campet, 43, 
Algaida 07210 Mallorca (Baleares). 


■ Vendo 18 juegos para Amstrad 
CPC, todos originales. 10.000 ptas. 
Mando lista y contesto a todas las 
cartas. Escribir a Vicente Alegre! 

Mas. Mallorca, 308, 3.° 1. a B. 08037 
Barcelona. También vendo Amstrad 
CPC 6128, monitor color, 18 juegos, 
joystic, lectora, grabadora de cassette, 
por 115.000 ptas. Llamar por las 
noches al 555 63 07. 


CANARIAS 


■ Tengo más de 600 juegos. Vendo 
copiones Discology, Dyscology II, 
juegos: últimos Samura y Trilogy, 
Goody, Gauntle II, Tai-Pan, Ultima 
Ratio, Pac-Man, Fredy Ardest, 
Centurions. Cambio juegos. Mandar 
lista. Se contestará seguro. Llamar a 
Josefa Naranjo de 8 a 9 de la noche, 
tcl. 20 05 95 de Las Palmas de Gran 
Canaria. Se mandará lista de juegos. 

■ Cambio juegos en cinta/disco. 

I engo novedades como: Renegado, 
Freddy, Hardest, Black Magie, 
Prohibition, etc. Mandad lista a: José 
Mateo Comieras. Avda. Lucas Vega, 
5, 3.° C. O llamar al tcl. 

(922) 25 30 89, Tenerife. 


■ Camino juegos Interesados ponerse 
en contacto con: José Benito. Brito 
Morales (antigua Fuerteventura). Islas 
Canarias. 


ERROR EN TRUCOS 

Dentro de la sección de Trucos 
del número 7 de AMSTRAD Per 
sonal, concretamente en «Dis¬ 
cos en alta capacidad» (página 
59), una de las líneas se encuen¬ 
tra tapada por la ilustración. En 
vista de las llamadas recibidas, y 
de los problemas ocasionados a 
los lectores, publicamos otra vez 
la línea completa con nuestras dis¬ 
culpas: 

260 DATA C0,00,10,00,00,00,21, 
0A,0E,1C 


CASTILLA Y LEÓN 


■ Cambio, programas para Amstrad 
CPC 464. C. P. San Pablo, 8. Miguel 
Ángel Encinas Núñez. Ledcsma 
(Salamanca) 



Todos los sábados, de 5 a 7 
de la tarde, en “Sábado Chip”. 
Dirigido por Antonio Rúa. 
Presentado por José Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informática. Haciendo 
radio chip... estilo Cope. 
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CASTILLA LA MANCHA 


■ Desearía cambiar Alustrad 6128 con 
monitor color, cassette, fundas, 
juegos, joystick, todo comprado hace 
ocho meses y en formidable estado, 
por vídeo sistema VHS de marca 
conocida. Interesados llamar de 8 a 
11 (noche). Tel. (967) 23 87 77. 


■ Compro, vendo, cambio programas 
para Amstrad PC. Tengo: Wordstar, 
Symphony, DBase III, Flacón, GW- 
Basic, Compiler, PC- Pools, GI:M; 
Livingstone, Goody, Starglider, 

Winter y Summcr Gantes, Ajedrez, 
Comccocos, Kárate... También 
compraría un Spcctrum usado. Miguel 
Angel Gallego. Huerta, 17. 13326 
Montlel (Ciudad Real). 


CATALUÑA 


■ Compro, vendo y cambio 

programas PC. Enviar lista, prometo 
contestar. Poseo un Amstrad PC 
1640. Solicito información de usuarios 
de módem. José Giílvez Ja viene. 

Martí Biasi, 56 l. u , 2.“. 08905 
Hospitalet de 1.lóbrega! (Barcelona). 
Tel. (93) 333 25 83 (de 4 a 9,30 de la 
noche). 


■ Cambio monitor 6128 P. V. por 
monitor 6128 color, abonando 
diferencia a convenir. Compro 
fotococias de manuales Amsword y 
Multiplan. Thomas Zimmer. 
Apartado 256. 17320 Tossa de Mar 
(Gerona). Tel. (972) 34 13 18. 
Compro programas gestión. 


Cambio programas para Amstrad 
PC. Mandar lista a Ramón Encinas. 
Iscle Soler, 1. 08221 Tarrasa 
(Barcelona). 


■ Vendo Amstrad 472 con impresora 
y monitor de color, más juegos. Todo 
por 80.000 ptas. (negociables). Muy 
poco usado. Francesc Salas Águila. 
Tiavessera Sarda, 4, 2. u 43201 Reus. 
Tel. (977) 30 66 18. 


I Si me mandas un disco con 
Desperado te grabo Odpuov, Disco 
Logic, Iraky, Warvors, Fernando 
Martín, l.ight Forcc y alguna sorpresa 
más. Jorge Sauz Punió. Concilio de 
I'rcnto, 45, 5.° I/. 08018 Barcelona. 


GALICIA 


Vendo Alustrad PC-1512 color, 
nuevo. Siete meses de garantía. 

Regalo muchos programas: Wordstar, 
Fíame Work, Dbase III, Integrated 7, 
Turbo Pascal, muchos juegos, etc. 
Podo por 165.000 pías. Luis 
Fernández Vázquez. 

Avda. Camelias, 104, 3.° A. 

36211 Vigo (Pontevedra). 

Tel. 29 56 92. Nora: incluyo embalaje 
original completo, manuales, etc. 


(91) 465 70 56 (A partir de las 20,00 
h). Preguntar por Roberto. 


Cambio juegos y utilidades Amstrad 
6128 Disco. Tengo amplio catálogo. 
Mandar listas a Alfredo Álvarez. 
General García Escáme/, 28. 2.° 1. 
28044 Madrid. 


I Cambio Amstrad PC 1512, un 
monitor monocromo más 30.000, más 
30.000 ptas. por su monitor color. 
Joaquín. Tel. 256 75 97. 


MURCIA 


Vendo programas para todos los 
CPC, tanto en disco como en cinta. 
Precios muy baratos. Interesados 
dirigirse a Migue! Ángel Martínez. 
Rúa do Buxo, 7, B. 36207 Vigo 
(Pontevedra). I'el. (986) 37 41 81. 
Mandar lista. Prometo contestar. 


MADRID 


Vendo Amstrad CPC 464 con 
monitor verde. Manuel en inglés. 
Todo por 40.000 ptas. Ismael. Tel. 
(91) 890 54 11. 


■ Intercambio utilidades para CPC 
6125. Preferible sólo Madrid. José 
Luis Galán Sánchez. Avda. del 
Mediterráneo, 2. 28007 Madrid. 


Compro tasspell en español. Disco, 
buen estado e instrucciones. Juan 
José ¡huera. Don Ramón de la 
Cruz, 48. 5.°, 2. Tel: (91) 402 22 77 
(noches). 28001 Madrid. 


Vendo o cambio los siguientes 
juegos: Ping-pong, /.otro, 
Helicopter-2000. Todos originales. 
Los dos primeros por 500 ptas., cada 
uno. Ll último por 350 pías. Todos 
por 1.150. Interesados llamar al tel. 


Cambio juegos CPC-464 en cinta. 
Poseo 150 y entre ellos 1 . Wonder boy, 
Nemesis, Hydrofool, Arkanoid, 
Antiriad, Sabotear II, Basket Master, 
etc. Razón: Luis María Castillo 
Gallego. Plaza de España, 2, 4.° A. 
Cie/a (Murcia). Contestaré a todos. 
Mandad lista. 


Intercambio juegos y utilidades. 
Seriedad. Contestación segura. Enviad 
lista a: Jol'ramaga. Virgen de Begoña, 
36. B.° Peral. 30300 Cartagena 
(Murcia). 


VALENCIA 


I Vendo ZX, interface 1, microdrive, 
interface Centronics y cartuchos de 
microdrive con manuales y cables. 
Todo por 22.000 ptas (negociable). 
También vendo revistas de Spcctrum. 
l-rancivco José Martínez Calderón. 
Rafael Atard, 6. Manises (Valencia). 
Tel. (96) 154 54 89 (comidas). 


■ Compro Utilidades PDRD, 
CPL-6128. También me interesa 
comprar un monitor en color. 
Interesados escribir a José. Apartado 
74. 46520 Puente Sagunto (Valencia). 
También compro números 6 y 7 d 
Amstrad User. Precio a convenir. 
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TRUCOS 


Pantascope 

Por: Joaquín Brague 

E n este caso podríamos 
aplicar perfectamente aquel 
refrán: «Lo bueno si breve dos 
veces bueno». 

El pequeño programa que da 
nombre a los dos trucos que 
presentamos, realiza una 
modificación en el chip de vídeo, 
que nos permitirá escribir en los 
bordes de la pantalla. Para ver 
el efecto basta pulsar varias 
veces la tecla Break, una vez 
hayamos ejecutado el programa 
«Pantascope». 

El otro truco, imita el piar de 
un pájaro con un efectismo 
bastante conseguido. Para 



modificar la cadena del trino 
basta con manipular el bucle de 
la linca 400. 


10 

FOR a=l 

T0 15 

20 

S0UNQ 1 

a, 1 

30 

NEXT 


40 

FOR n=l 

TO 200 

50 

NEXT 


60 

60T0 10 



10 REH PANTñSCDPE 
20 FOR a=l TO 7984325 
30 OUT a,73 
40 NEXT 


¿Un paso 
atrás? 

Por: Eduardo Sandoval 

D esde éstas y otras pági 

nuestra revista, siempré nos 
hemos esforzado por accrqgr^n 
la medida de lo posible, 
posibilidades de los CPC 61^8 a 
los usuarios de los 464. 

El programa que hoy 
presentamos, realiza de forma 
rotunda, exactamente lo 
contrario, convierte el CPC 
6128 en un auténtico CPC 464 
bienvenida sea la verdadera 
compatibilidad que nos va a 
permitir ejecutar aquellos 
programas que han sido 
creados en un 464 y que 
hasta ahora no era posible 
ejecutar en un 6128. 


¿Que vienen 
los marcianos? 

Por: Juan C. Arius 

M ientras poníamos en orden 
las últimas fichas del 
archivo de nuestra biblioteca, el 
ordenador pareció enloquecer y 
ante nuestro asombro el 
mensaje, que todo terrestre 
espera con ansia, apareció 
tibiante: INTERFERENCIA 
MARCIANA. 

Si quieren verlo ejecuten el 
siguiente programa. 



En 

pantalla 

Por: Jesús Haydal 1 

L os dos programas 
que vienen a 
continuación, actúan 
sobre la pantalla de 
dos formas distintas. 

El primero de ellos 
realiza una reducción 
horizontal, dejando la 
pantalla en el vértice superior 
izquierdo, ocupando 
exactamente la cuarta parte 
de la pantalla. El siguiente 
programa produce una inversión 
doble del contenido de la pantalla. 
La parte de arriba, quedará 
abajo, la parte de la derecha 
quedará a la izquierda y viceversa. 
Cv Las rutinas, en Código Máquina, 
de ambos programas se ubican a 
partir de la dirección &AF00 y 
son totalmente reubicables. 



10 REM REDUCCION HORIZONTAL 
20 F=iAF00 

30 READ A$:IF fl$=*FIN* THEN 10 
0 

40 POKE F,VAL('i'+A$):F=F+l:ch 
eck=check+VAL(AÍ):GOTO 30 
50 DATA 21,0,c0,0e,c8,e5,e5,dl 
,6,28,c 5,6,2 

60 DATA c5,la,6,4,f5,e6,60,28, 
1,37,4e,cb,11 

70 DATA 71,fl|Cb,27|tb,27,10,8 
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10 REM INTERFERENCIA MARCIANA 
20 ENT -1,1,5,1,1,-5,1 
30 NODE OíFOR j=l TO 12¡PEN IN 
T(RNOtlS+l)¡PRINT 'interferenc 
ia iardana*¡NEX 

T 

40 FOR f=l TO ÍOOOIOUT 48C00.0 
¡OUT 4BD00,INT(RN0íS4+46)¡SOUN 
D 2,INT(RNDT500+60),2,,1,1¡NEX 
T 

SO PEN 1:HODE llOUT 4BC0Q,0¡0U 
T 4BD00,63 



,tl, 10.e7.23 
80 DATA ti,10,e0,c5,6,28,af,77 
,23,10, fe, d, el 

90 DATA cd,26,bc,0d,20,cb,c9,F 
IN 

100 IF check<>596 THEN CLSlPRl 
NT* ERROR EN DATAS....*¡END 
110 CALI 4AF00:END 


10 REM 
20 F=4AF00 

30 READ A$:IF A$='FIN* THEN 90 

40 POKE F,VAL('4"+A$):F=F+l:ch 
eck=check+VAL(ñ$):GOTO 30 
SO DATA 21,00,c0,ll,4f,c0,06,c 
8,cS,eS,dS,06,28,cS 
60 DATA 7e,06,08,cb,3f,cb,U,l 
O,fa,79,12,23,Ib,d 
70 OATA 10,ef,el,cd,26,bc,e3,c 
d,26,be,di,el,10,de 
80 DATA c9,FIN 

90 IF check0308 THEN PRINT * 
ERROR EN DATAS...*¡END 
100 CALL 4AFÜ0 



Formas 
multicolores 

Por: Manuel Domarco 

S iempre dejamos un rincón 
para el artista en estas 
páginas, y este mes no podía ser 
distinto. Deleitemos nuestra vista 
ante el siempre asombroso 


espectáculo de color y lantasía, 
que ofrecen estos programas. 

Variando los valores de los 
bucles y de los «steps», puede 
loarar nuevas creaciones. 


10 REM FORMAS MULTICOLORES 
20 CLS 

30 FOR N=1 T0 600 STEP 10 
40 0RIGIN 120,200 
50 PL0T 0,N, hDRAH 452,120 
60 PL0T 1,N,0:DRAM 520,620 
70 S0UND i,200+H,100 
80 ENT -6,80,1,1,80,-1,1 


90 NEXT 

100 FOR N=2 T0 200 STEP 4 
110 PL0T N,1,0:DRAH 120,N 
120 ÜRIGIN 120,200 
130 PL0T 2,N,1:DRAH N,120 
140 SQUND 1,200+N 
150 ENT -3,2,1,1 
160 NEXT 


v , - N 

/ 

Música maestro 

Por: Fernando Tainayo 

A estas alturas ya no merece 
la pena disertar sobre las 
capacidades sonoras de los CPC, 
por todos de sobra conocidas. 
Aquí va una muestra más de 
estos sonidos, especialmente 
pensada para los más belicosos. 


10 CLS: INPUT 'Nusero de sonido 
(1-11) '¡a 

20 ON a S0SU8 100,200,300,400, 
500,600,700,800,900,1000,1100 
30 SOTO 10 

100 FOR 1=1 TO 3¡ENV 1,1,14,1, 
7,-2,4: S0UND 2,4000,200,15,1,1 

5,is:next:return 

200 FOR 1=1 T0 3¡ENV 1,1,14,1, 

7,-2,4¡S0UND 2,4000,200,15,1,1 

5,6¡NEXT:RETURN 

300 FOR 1=1 T0 3¡ENV 1,1,14,1, 

7,-2,4¡S0UND 2,4000,200,15,1,1 

5,2¡NEXT:RETURN 

400 FOR 1=1 TQ 3¡ENV 1,1,14,1, 

7,-2,4¡SOUND 15,4000,200,15,1, 

1,1S¡NEXT¡RETURN 
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TRUCOS 



Rápido, rápido... 


H asta ahora habían pasado 
por esta sección, muchos y 
variados tipos de scroll, lentos y 
rápidos, en vertical y horizontal, 
etcétera. 

Sin embargo, en honor a la 
verdad, jamás habíamos 
observado uno tan rápido y 
suave como el que hoy 
ofrecemos. 

La clave del éxito se encuentra 
en una manipulación del chip de 
vídeo, pero observen, observen y 
verán. 


10 REH *«««« JAVIER VAZQUE 
Z GALLARDO mtttttf 
20 HODE 2 

30 1NPUT 'Velocidad (0-400):'; 
zMF z<0 0R z>400 THEN GOTO 30 
40 INPUT 'Modo:';»:«=INT(a):IF 
»<0 0R «>2 THEN GOTO 40 
50 INPUT 'DERECHA A IZQUIERDA 
(l)-IZQUIERDA A DERECHA (0): E 
LIGE 0PCI0N';D:D=INT(0):IF 0<0 
0R 0)1 THEN GOTO 50 
60 HODE « 

70 F0R a=I T0 ÍOOO.'PRINT CHR$( 
INT((RNDZ215)+32))i:NEXT 
80 IF 0=0 THEN GOTO 110 
30 FQR a=l T0 401F0R b=l T0 z: 
NEXT blOUT iBDOO,a:NEXT a 
100 GOTO 120 

110 F0R a=40 T0 0 STEP -ÜF0R 
b-I T0 z:NEXT blOUT JBDQQ.alNE 
XT a 

120 a$=INKEY$ 

130 IF aí=*o* 0R a$='0' THEN G 
OTO 80 

140 IF a$='r' 0R a$=’R* THEN R 
UN 

150 IF a$=V 0R a$='V' THEN I 
NPUT z 

160 GOTO 120 



de persiana 


Por: Jordi Pérez 


E ste programa manipula 
también el chip de vídeo, 
consiguiendo un efecto de 
persiana que sube y baja, 
bastante aparente. 

El secreto del truco está en 
subir o bajar el borde 
estirándolo. 

La forma de conseguirlo está 
en hacer: 

n = 0:out &bcOO,6:out &bdOO,N 
Donde N puede ir de O a 25. 

Si es mayor, el borde desaparece 
por la parte inferior de la 
pantalla, pero si es demasiado 
grande, desaparece 
completamente. 


10 REH 
20 REH 

30 F0R 1=0 T0 25 
40 G0SU8 90 
50 NEXT í 

60 FOR i=25 T0 0 STEP -1 
70 GOSUB 30 

80 NEXT i 

81 FOR 1=0 TQ 25 

82 GOSUB 90 

83 NEXT i ¡ENO 

90 OUT 4BCOO,6iOUT lBDO0,i:CAL 
L 4BD13 
100 RETURN 



Borde 

sicodélico 

Por: Manuel Pinilla 

E stas cinco líneas permiten 
simular una auténtica carga 
turbo, puede aderezar cualquier 
programa galáctico o bien servir, 
como en este caso, como simple 
prueba de lo que un 
programador es capaz de hacer 
con su máquina. 


10 REH tllItMItittltttlIll 

20 REH I BORDE SICODELICO « 

30 REH llit)ltltimtttt*il 

31 WHILE INKEY$=" 

40 FOR 1=60 TO 70:0UT Sr7F00,4 
50 NEXT t 
60 HENO 



¿CUAL ES SU TRUCO? 

Desde esta columna queremos invitar a todos, sin ex¬ 
cepción, a que participen en nuelra revista y se con¬ 
viertan en parte aún más activa, sí cabe, de la misma. 
Estamos convencidos que durante el uso diario de su 
ordenador han descubierto multitud de trucos y pica¬ 
ras artimañas, manera de hacer b imposible, que han 
convertido horas de tedioso trabajo en momentos en 
las que la chispa de la inspiración le hacen a uno feli¬ 
citarse por haber comprado un Amiirad. Si efectiva¬ 
mente nos los han descubierto, ¿por qué no nos los envían? 
Nosotros los miraremos todos, y los seleccionados re¬ 
cibirán como compensación por su esfuerzo cuatro cin¬ 
tos de cassettes repletas de juegos, utilidades y progra¬ 
mas publicados por amstrad Personal, de las que 
publicomos cada mes. Además, si el lector nos indica 
en la corta cuáles quiere, le enviaremos precisamente 
ésas, siempre que no estén agotadas. 

Enviar las cartas a la siguiente dirección: AMS¬ 
TRAD Personal. Ctra. de Irún, km, 12,400. 28049 
Madrid In dicando claramente en el sobre: ams¬ 
trad Personol. Referencia Trucos. 
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SOFTWARE 



Los diferentes 
elementos de un sistema 
administrativo han 
alcanzado un alto grado 
de automatización en 
programas para 
microordenadores. Sin 
embargo, la integración 
de sus partes requiere, 
por su complejidad, de 
capacidades de memoria 
y velocidad de 
procesamiento muy 
elevadas. Los sistemas 
administrativos han sido 
por esto modularizados 
en sus diversas 
aplicaciones, 
requiriéndose la 
intervención directa del 
usuario. 

Tmax promete una 
aproximación diferente, 
autotitulándose «.una 
gestión realmente 
integrada ». 


D escribiremos a 
continuación las 
características más 
relevantes de Tmax. 

El plan de cticnlas, con código 
libre de hasta nueve niveles de 
control, permite al usuario 
jerarquizar las cuentas de 
diferentes empresas y diferentes 
aplicaciones desde el más alto 
nivel contable hasta el último 
nivel de cualquier aplicación. 

El usuario puede llevar dentro 
del mismo plan de cuentas, 
contabilidades independientes, 
consolidables o no, diferentes 
inventarios, diferentes grupos de 
cuentas por cobrar y pagar, etc. 

El usuario puede definir 
diferentes balances generales y 
estados de ganancias y pérdidas 
escogiendo en cada caso los 
niveles y ramas contables que 
desea que aparezcan en los 
mismos. Esto abre la posibilidad 
de modelar el estado financiero 
de la empresa respondiendo a 



wm 


¿Una contabilidad 

realmente 

integrada? 


preguntas tales como: ¿cuál sería 
el balance sin o con tales 
cuentas? 

Las transacciones o apuntes 
son validados al momento de 
introducirse y pueden ser 
registrados inmediatamente 
después, sin embargo, un archivo 
de pendientes permite registrar de 
modo diferido transacciones de 
difícil ubicación contable, con 
datos dudosos o incompletos 
para la posterior revisión y 
archivo definitivo por parte del 
contable o responsable 
administrativo de la empresa. 

El directorio, compartido por 
todas las empresas y todas las 
aplicaciones, evita la duplicación 
de datos de clientes, proveedores, 
empleados, personas, entidades 
relacionadas, etc... Así, si un 
empleado de la empresa tiene una 
cuenta por pagar con ella, tanto 
la contabilidad como la 
aplicación cuentas por cobrar lo 
referirán mediante el mismo 


FICHA TÉCNICA 


Título: Tmax. 
Material: dos discos: 
clave y 

utilidades + manual. 
Equipo mínimo: 
Amstrad PC1512 
ó 1640 con dos 
unidades de disco 
y monitor monocrono. 
Equipo aconsejable: 
PC1512 ó 1640 
con disco duro. 
Precio: 78.288 ptas. 
Distribuidor: 
Microbyte. 
Paseo de 

la Castellana, 179. 
Tel. (91) 442 54 33. 
28046 Madrid. 
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código del 

directorio, en el que 
encontraremos el 

nombre, dirección, de una 

número telefónicos 
y observaciones. 

Durante los 

procesos de actualización de 
datos, pueden abrirse ventanas de 
consultas que facilitan al 
operador la introducción o 
modificación de los mismos. 

I I paso de una opción a otra 
no implica avances o retrocesos 
dentro de una larga cadena de 
menú; la mayoría de las opciones 
se ofrecen simultáneamente, en 
forma de «persianas», en todas 
las pantallas del sistema. 

Tmax dispone de ayuda On¬ 
line. Basta pulsar F1 para que el 
programa, automáticamente nos 
«socorra» acerca del punto 
exacto en el que nos encontramos 
dentro del mismo. El usuario 


puede discriminar el contenido de 
cada informe, especificando un 
rango de códigos, fechas, etc., o 
sobreponiendo una máscara 
(filtro) al código. 

Tmax ofrece un formato 
standard para la impresión de 
facturas y además, el usuario 
puede definir los diferentes 
formatos que desee utilizando un 
programa de tratamiento de 
textos. 

Un conjunto de programas de 

mantenimiento permiten realizar 
al usuario, sin asistencia alguna 
del vendedor: la recuperación de 
índices perdidos por 
interrupciones eléctricas o de otro 
tipo; la modificación de periodos 
ya cerrados y el paso de saldos 


de esos periodos a los siguientes; 
el cambio de los datos iniciales 
de una empresa; la duplicación 
de su plan de cuentas, para que 
pueda ser utilizado todo o en 
parte por otra; la transferencia de 
los datos de la empresa a 
formatos reconocibles por 
programas como Lotus y Dbase; 
el recálculo de costos, la 
renumeración de trasacciones, 
etc. 

A modo de primera 
conclusión, podemos decir que 
Tmax es un programa muy 
completo, realmente sencillo de 


asociado a un directorio— como 
empresas independientes desee 
controlar. Por independientes 
entendemos empresas que no 
comparten informes ni poseen 
una entrada de datos común. 

Esto significa, por ejemplo, que 
dos o más empresas 
independientes —cada una con su 
plan de cuentas— no podrán ser 
consolidadas en un balance 
producido por Tmax. El usuario 
puede también utilizar un mismo 
plan de cuentas para varias 
empresas, asignando uno o más 
dígitos del código de cuentas para 
diferenciarlas. Esta 
posibilidad permite 
obtener reportes 
conjuntos (balance 
consolidado) y una 
entrada de datos 
común, pero 
presenta la 
desventaja de que la codificación 
puede llegar a complicarse 
demasiado. En general es 
recomendable que por cada 
empresa se abra un plan de 
cuentas. 


lo gira en Tmax alrededor 
ntabilidad muy bien estructurada 
y de fácil acceso. 


CUADRO I 


CONTABILIDAD 


BANCOS 


I 

I 

— J 


CUENTAS POR __I 

COBRAR 


lNVLt 


LF. YENDA: — — Copia de movimientos 

- Generación de movimienloi 

utilizar y dotado de una potencia 
que, sin embargo, no complica la 
vida al usuario no técnico. 

Plan de cuentas 
y directorio 

El plan de cuentas es un 
fichero donde se almacena la 
codificación de las cuentas del 
sistema. Consta del código y 
nombre de cada cuenta y de los 
datos propios de cada aplicación. 

El directorio es un fichero de 
uso general en el que pueden 
incluirse o no datos registrados 
en el plan de cuentas. En él 
queda registrado el Nombre de la 
cuenta (cliente, proveedor, 
vendedor, etc.), la dirección, 
número telefónico y observaciones. 

El usuario puede abrir tantos 
planes de cuentas —cada uno 


CUrNTAS POR 
PAGAR 


Definición 
de los estados 
financieros 

Tmax ofrede dos modalidades 
para definir los estados 
financieros - . 

Según plan de cuentas. 

Según definición del usuario (al 
elaborar informe). 

Según plan de cuentas: 

Esta modalidad obliga a una 
codificación completa y 
totalmente jerárquica, donde 
deben ser incluidas las cuentas de 
más alto nivel como activo, 
ingresos, etc. Todas las cuentas 
registradas deben ser agrupadas 
bajo una de las siguientes 
secciones o masas patrimoniales: 
activo, pasivo, patrimonio 
(capital), ingresos, gastos, cuentas 
de orden de activos y cuentas de 
orden de pasivos. El pasivo y el 
patrimonio pueden estar 
agrupados a su vez bajo una 
cuenta de mayor nivel, que suele 
denominarse pasivo y patrimonio. 
Toda cuenta no agrupada bajo 
una de estas secciones será 
ignorada. 
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La única cuenta no 
perteneciente al plan de cuentas 
que esta modalidad calcula y 
presenta automáticamente, es la 
Cuenta de Resultados o Cuenta 
de Explotación, tomada como la 
diferencia entre los ingresos y los 
gastos. 

Según definición del usuario: 

Esta modalidad permite definir 
cuentas, particularmente las de 
más alto nivel, a la hora de 
emitir el informe, evitando así su 
codificación dentro del plan de 
cuentas. De esta forma pueden 
definirse diferentes estados de 
ganancias y pérdidas y balances 
generales. Debe ser utilizada en 
los siguientes casos: 

Cuando se desee Uno 
que en el estado de 
ganancias y 
pérdidas y en el 
balance general 
aparezcan cuentas 
no incluidas en el plan de 
cuentas. 

Cuando no tadas las cuentas 
del plan de cuentas están 
agrupadas bajo una de las masas 
patrimoniales descritas 
anteriormente. 

Cuando se desea dar a alguna 
o a todas las cuentas del estado 
de ganancias y pérdidas y del 
balance general un nombre o 
saldo diferente a los registrados. 

Cuando se desee alterar la 
jerarquía y la correlación entre 
cuentas con respecto al plan de 
cuentas. 

Mientras la primera modalidad 
ofrece más 
seguridad, la 
segunda flexibili/a 
la estructura 
contable y agiliza 
la entrada de 
datos. 


Esquema de 
integración 

Cada aplicación 
informa a la 
contabilidad a 
través del archivo 
de pendientes 
(figura 1). En éste 
se almacenan los 
movimientos antes 
de pasar a los 


archivos definitivos y actualizar 
los saldos de las cuentas. Cuando 
los movimientos de cuentas por 
cobrar, cuentas por pagar o 
inventario y facturación se 
archivan definitivamente, es 
decir, pasan del archivo de 
pendientes al archivo definitivo, 
el sistema genera un comprobante 
que afecta tanto a la cuenta 
contable bajo la cual se 
encuentran estas aplicaciones 
como a otras cuentas contable 
especificadas dentro de la 
aplicación. El nuevo 
comprobante se almacena en el 
archivo de pendientes de 
contabilidad, donde puede ser . 


revisado y en ocasiones 
completado por el usuario antes 
de ser archivado definitivamente. 

En el caso de cuentas 
bancarias, sus movimientos 
pueden ser introducidos 
directamente en el archivo de 
pendientes de contabilidad o bien 
copiados del archivo de cuentas 
bancarias. 

De este modo se dispone de un 
esquema de integración 
automático y al mismo tiempo 
controlable por el usuario, 
permitiendo así manejar tanto el 
trabajo convencional como las 
excepciones. 


Los periodos 

Tmax permite la apertura de 
100 periodos (del 0 al 99) dentro 
de cada ejercicio contable. La 
duración de los periodos no es 
necesariamente la misma para 
todos y es arbitrariamente fijada 
por el usuario al hacer el proceso 
de cierre de periodo de cada 
aplicación. 

Lo usual es hacer 13 periodos 
por ejercicio contable: uno por 
cada mes y uno para el cierre o 
para la carga inicial de saldos. 

Conclusión 

Tmax es un programa 
complejo, aunque no de uso. Por 
eso nos detenemos aquí en su 
descripción, sin exponer a fondo 
detalles de cada menú de operación, 
salida a disco o impresora, etc. 
Tales particularidades se 
encuentran profusamente 
explicadas en el excelente manual 
que acompaña al programa. El 
usuario interesado lo tiene, pues, I 
resuelto. 

Sí conviene, sin embargo, 
resaltar la impresión personal que 
este paquete nos ha producido: es 
muy buena. Tmax opera 
razonablemente rápido, guía paso 
a paso al usuario novel, hace un 
uso muy coherente y bien 
pensado del teclado y, sobre 
todo, funciona. Es decir, cubre 
de principio a fin el área de 
gestión para la que fue diseñado,' 
y tiene derecho a situarse como 
serio candidato para resolver los 
problemas contables de una 
empresa de madera realmente 
integrada. ■ 


inca de rruntl atoi 
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Actualizar cuentas 
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CUADRO II 


Identificación del 
sistema 


- I'MAX 


Identificación de 
la empresa Pofodo 
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VechaV 


iffSffi?! Modificar Eliminar Ñuscar Siguiente Anterior Listar Terminar 


Código 


Nombre de la Cuenta 


Sdcccionc su opción 


Conforme -J . Cancelar <csc> 


de los aspectos más interesantes 
del programa es el acertado 
ensamblaje entre potencia y 
extremada sencillez de uso. 
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PRDGRRÍTlfinGD JUEGOS 

VE AVENTURAS III 


Por José Carlos Alia 
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cspucs de todo lo 
explicado en los artículos 
anteriores, y como ya 
dijimos entonces, vamos a 
rematar nuestro trabajo 
desarrollando las últimas rutinas 
necesarias para la perfecta 
ejecución de la «terrible» aventura 
de El Caserón Solitario... 

Como podrán recordar todos 
los sagaces aventureros que nos 
siguen en esta espeluznante 
peripecia, el programa se quedó 
únicamente a falta de codificar las 
rutinas de lo que hemos llamado 
Instrucciones de Situaciones 
Complejas. Pues bien, hora es ya 
de que nos metamos con ellas. 

Dichas situaciones se daban al 
llegar a las habitaciones 
numeradas, hábilmente, como I, 2 


y 3, que son las del pasillo de la 
trampa mortal, el laboratorio con 
su momia y el túnel secreto con 
sus famosas arañas. 

En primer lugar, debemos 
preguntarnos cómo controla el 
programa cuando entran en 
acción dichas rutinas. La 
respuesta es muy sencilla: cada 
vez que pasemos por las 
habitaciones correspondientes, y, 
para ello, debemos ampliar las 
acciones derivadas de una orden 
de movimiento (“IR”). 

Cuando el aventurero introduce 
una orden de ir a algún sitio, y si 
la instrucción es correcta, 
recordemos que las acciones 
consistían en: 

1. Calcular los parámetros de 
control de salidas (NR, ES, etc.). 

2. Dibujar el gráfico de la 


pantalla a la que se ha llegado. 

3. Describir la nueva escena, 
los objetos y personajes. 

Ahora añadiremos una cuarta 
acción que servirá para controlar 
si se ha llegado a un escenario 
especial: 

4. Control de escenario 
especial. 

De esta manera, la línea 1050 
quedará completa como sigue: 

1050 GOSUB 5000-.GOSUH 
5500-.GOSUB 6000:REM 
DESCRIBE ESCENA 

Y desde la dirección 6000 hasta 
la 6050 codificaremos la 
subrutina. 

Así el programa ya sabrá si 
debe lanzar las rutinas 
correspondientes y lo hará si 
rellenamos la instrucción que 
habíamos dejado en vacío el mes 
anterior a partir de la dirección 
1500, que es la de Rutinas 
complejas. 

Ya estamos en disposición de- 
codificar dichas rutinas. Como se 
ve, entre la 15000 y la 15020, 
hemos colocado un factor de azar 
del 50 por 100 de posibilidad de 
que el aventurero caiga en 
la trampa. Sería muy 
fácil variar este 
parámetro a 
gusto de cada 
cual, 
pro\ cr¬ 
eando 















un mayor o menor nivel de 
dificultad. 

A partir de la 15990 se observa 
que, en ambos casos, se controla 
si el aventurero lleva el objeto 
clave ( OT$(l) OT$(2) ) y, en 
función de ello, el programa 
decide si sigue adelante con la 
aventura o si ha llegado su última 
hora... 

Y esto es todo. A la luz de 
estos ejemplos desarrollados, es 
fácil comprender que se podrían 
codificar acciones más complejas, 
que incluso no dependieran 
solamente del escenario, sino de la 
aparición de personajes, objetos 
determinados, o como 
consecuencia posterior de acciones 
realizadas previamente (coger, 
examinar ciertos objetos, etc.) 

Precisamente por esta razón, en 
la rutina del Núcleo Principal del 
programa, la instrucción referente 
a las acciones complejas (línea 



Es fácil controlar el nivel 
de dificultad del juego 
alterando el factor azar 


540) se ha codificado después de 
la referente a las acciones simples 
(línea 530). Si bien en este caso el 
hecho no influía para nada, 
constituye una base para otras 
aventuras más complicadas. 

Hemos rematado también las 
rutinas de final (Muerte y Salida). 
Son las instrucciones 18520 18620. 
(Por cierto, en el número 
anterior, por error, la llamada a 
estas instrucciones desde la línea 
380 se había codificado al revés. 
Quizá, los lectores se habrán dado 
cuenta. En todo caso, ahora ya 
queda rectificada.) 

Se puede apreciar que, en el 
final con salida, hemos 
introducido un pequeño ejemplo 
de puntuación, muy simple pero 
que sirve al caso, como muestra 
de un tema interesante y que un 
buen programador no dejará de 
lado, mejorando su tratamiento... 

Con esto, hemos llegado al 
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SER PRINCIPIO 

60SUB 20000; RER INIC1ALIIA VARIABLES 
OOSOfl 13000; REN DESCRIBE 9M.1D» Y P! 

: instrucciones 

£ RER .. TRATAHIENTO PRINCIPAL » 

10 1 

20 «HILE EX) ANO P< 10 
130 60SUB 500 
U0 WEHD 

350 ; 

360 RER «* ElNAL ** 

3 B 0 Ir E)0 THEN GOSUB 18500 EISE G0SUB I 


R00E IiENO 

.... 

, „ RUTINAS ** 

, RER H NUCLEO PRINCIPAL •* 

\ ir RF*1 THEN 60SUB 1000:1F P'-IO 0R E 
THEN 560; RER RUTINA OE ROOTO. 

0 1F NSPOO THEN 60SUB 1400: RER RUIIN 
DE ORDENES S1RPLES 

10 1F ESPOO THEN 00SUB 1500; RER RUUH 
DE SITUACIONES COMPLEJAS 
50 IF EX) THEN 60SUB 2020: RER SOLICITA 

HUEVA ORDEN 

S “7.HHE.. 

Z S aa**e»»»»*»*****a**’** 1 ’**)*** 

1020 60SUB H500ilf HF=2 THEH R ™ 

1030 ^U=Sft<(P):HR e VAU^ni(SjM))^ 
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1060 REIURN 

. 2 
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1Soremh.h»hh....*«*;; 

1520 OH ESP S0SU8 15000,10000,17000 

SE... 

ss: sskss» 

2020 printunputro* v« h «, lis». 

MJPPERMIS»)*’ ■;LS--LEN(1S«) 

2030 F0R 1*1 10 LS 
2040 H--RlD»U5»,l,lt 
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2060 vBt=LEFmisi,i-n 
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2080 NEtT 

',r icria (NNi 3)='LA ' 0R LEFTttNNt, 
2100 1F LEFTBÍNN», 
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9200 l 

2210 ESP--0:NSP=0:VF-0:RF=0 

2220 If VB»*‘IR’ THEN VF=l:Hf-t 

SllE'SSSS 

SSSÍSS.'SÍIÍtib 

250o‘lF S VF--0 THEN PRINT'No entiendo lo 0 
ue , e dices’¡00T0 2020 


sS~~¡s. ;; 

4520 NN**NN»*’ ':LN=LEN(NN*> 

SínSi’W NwymK* 

Sn^EMHENNNMV^ 
csao IF Nt=’SUR‘ THEN NNt- S .1 
4590 IF Nt-'0E5TE‘ THEN NN«--0’:1=LN 

i 4600 üní\ cnitNNF inlF DRíO'N’ ANO OR 

S - -<>;•■ »* 
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( dirigir,*:HF=2:RETURN 
4629 ‘ -- AND NROO THEN P*NR:RETU 


-’N’ 


ANO ESOO THEN P=EB:RETU 
■ ANO SUOO THEN P=5U;RETU 
. AND 0EO0 THEN P=0E:RETU 


2510 RETURN 
4490 


4630 IF ORE 
RH 

4640 IF BR»='E' 

RH 

4650 IF DRt='S' 

RH 

4660 IF DRt=’0' 

4670 PRINT’No hay salid» hacw el 
RF=2:RETURN 

50« IF p‘,0 THEN 60SU» 21500:RETURN:E L S 

‘^IFW THEN 60SUB 21100:60SUB 2.200 

£J 1F 5 P=2 THEN SOSUB 21400:60SUB 21200 
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s;ssa i sa. , » 3 - 
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SEÍ.. 
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5560 Z*=I*»SP*e0*ll. n«F-itSP* , 
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5610 HEIT 

5620 IF F*I THEN PRINT I» 

S m”. . .. 

S 5 »S 5 M. 

6020 IF P=l 1HEN ESPM 
6030 IF P=2 IHEN ESP=2 
6040 IF P=3 IHEN ESP*3 

m l m~ ...:: 

,3020 SOSUB 14000:IF F=0 THEN PRINT 

nToOIf ml™i>OP IHEN PRINT’Aqui 
'no hay > + 0 *CF, 1 ): RETURN 
13040 IÍ=’Recoges 'WM' 

13050 0KF,2)=”:UTttF)=UttF,3) 

13060 PRINT 2* 

15““...7, 

SíSfe, 

13820 SOSUB 14000:1E F-Or THEN PX 

•J¡ SSÜf- 

1 +QT t tF):RETURN 


AMSTRÁD Primal C>5 

















































final de esta serie. Esperamos que 
su lectura sea útil para aquellos 
que, interesados en el tema, 
deseen intentarlo a su vez, 
lanzándose a la mismísima 
aventura de la propia 
programación de sus guiones. 

Para ellos es preciso decir que si 
bien el ejemplo de El Caserón 
Solitario es muy sencillo, no 
olviden que su organización como 
programa es válida para cualquier 
otro caso, por complicado que 
sea, al haber sido estructurado y 
modulado convenientemente. Con 
pequeñas modificaciones podría 
adquirir un desarrollo mucho más 
complejo. Como nota de ello, 
hemos incluido las líneas 2100 y 



La estructura de este 
programa es válida para 
cualquier otro caso, por 
complejo que sea 


2110 que amplían enormemente el 
análisis sintáctico, permitiendo 
introducir órdenes con artículos 
(Coger el talismán) y simplificar 
las órdenes de movimiento (IR N, 
IR AL N). Asimismo, la 
instrucción de la línea 2020 
IS$ = UPPER$(IS$) permite tanto 
escribir las órdenes en mayúsculas 
como en minúsculas. 
Próximamente publicaremos y 
comentaremos un programa más 
elaborado, donde se podrán analizar 
algunas otras mejoras. ■ 
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UTILIDADES 


Técnicamente no existen 
grandes diferencias 
entre el hardware 
que maneja el 
cassette de un 
Amstrad CPC al 
de un Spectrum. 

Por este motivo, 
nada impediría el 
que se pudieran 
intercambiar datos entre 
un Amstrad y un 
Spectrum a través 
del cassette si no 
fuera porque el 
modo de 

almacenamiento es 
diferente. Sin embargo, 
este problema se puede 
solucionar mediante software, 
que es precisamente lo que 
pretenden estas rutinas. 


A Imacenamiento SpectmmrArmtrad 

Save-Load 

Por Javier Elices 


P ara todos aquellos que 
posean un Amstrad y un 
Spectrum (cualquiera de los 
modelos), o que simplemente 
tengan un Amstrad y alguna cinta 
de Spectrum, se han pensado estas 
rutinas en Código Máquina. 
Teniendo también presentes a los 
usuarios del Basic, se han 
agrupado y estructurado en forma 
de comandos RSX (ReSident 
eXtensions) que permiten su 
utilización de forma más clara y 
sencilla. 

Los dos nuevos comandos RSX 
que manejan estas rutinas son: 
ILOAD, comienzo 
ISAVE, comienzo, longitud 
Siendo comienzo la dirección a 
partir de la cual se va a cargar o 
salvar y longitud la cantidad de 
bytes a salvar. En el caso de 
Load, la longitud se toma de la 


cabecera de los datos a cargar, 
por lo que no es necesario que se 
especifique. 

Estos nuevos comandos sirven 
sólo para salvar bloques de bytes 
desde el Amstrad, aunque pueden 
cargar todo tipo de datos en 
formato Spectrum; esto es, 
bloques binarios, programas Basic 
o matrices numéricas o 
alfanuméricas. En todos los casos 
los datos se tratan como si fueran 
bloques binarios, sin interpretarse 
de ninguna manera. 

Para los conocedores del 
Código Máquina, los usos de 
estas rutinas son múltiples, entre 
ellos el intercambio de datos o 
incluso de programas en Código 
Máquina. 

Para todos aquellos que quieran 
atraverse a intercambiar cosas, 
voy a dar unas cuantas ideas. 


En primer lugar, no sería 
demasiado difícil hacer un 
programa que adaptara los 
programas en Basic del Spectrum 
y los convirtiera en bloques 
ASCII, que con las 
modificaciones necesarias se 
pudieran ejecutar en un Amstrad. 
Para ello bastaría con interpretar 
cada una de las líneas del 
programa en Spectrum y sustituir 
los códigos de numero de linea 
por su número correspondiente, 
eliminar los códigos de longitud 
de línea y los de representación de 
un número en coma flotante (que 
empiezan por el código 14) y 
expandir los códigos de los 
comandos por su equivalente en 
ASCII, terminando las líneas con 
CR (retorno de carro) y LF 
(avance de línea). Volcando todo 
en un fichero ASCII, se podría 
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cargar luego desde Basic y 
corregir todos aquellos comandos 
inexistentes o de diferente sintaxis 
en el Basic del Amstrad; sobre 
todo los relacionados con el 
manejo de cadenas. Como ayuda 
en la corrección, seria conveniente 
el que todos los comandos se I 
dejaran en minúsculas. 

Las pantallas también se pueden 
adaptar. Debido a la superioridad 
del Alustrad, las pantallas 
monocromas de Spectrum se 
pueden adaptar directamente, 
mientras que las de color sólo 
exigen un cambio de escala de 256 j 
a 180 puntos y sin problemas de 
atributos. 

Para los interesados en ver 


CARGADOR SA VELQAD 


OIRECCION DE COMIENZO..AOOO 

1 0109A0211AAOC3D1BC1iA0C3,54S 

2 iEA0C37AA0534I56C54C4F41,526 

3 C-tOOOOOOOOOOFE02CODD6EOO,3CF 

4 00660I2200A2806E02D06603,4A8 

5 220rA2CDA7BCCD6EBCF30110,5FE 

6 7F£04909C51I5C20215E44D9,57C 

7 08F5DD2102A2111IOOAFCOAF,4EC 

8 AO2ICAO3IOFE2B7CB520F9DO,5EE 

9 2AOrA2ED5BODA23EFFCDArAO,&2B 
ID FI08CI09F8C03B8CC03B8CC3,7D6 

11 71BCFE01CODD6EOOD06&OI22,59D 

12 OFA2CDA78CC06E8Cr309C508,771 

13 F5DD2113A211I100AF37CD4A,4C7 

14 A i30F2002AOFA2E0581EA23E,501 

15 FF37CD4AA1I8BD21B01FCB7F,5C0 

16 28032I980C0813DD283E3006,287 

17 0210FED906F6ED790S7FED59 I SI6 

18 AA4F7BEE1A5F79D9Q6932DOO,4F3 

19 20E70t91Z5000000F2C[A006,41C 

20 2810FED906F6E073D33E1006,59E 

21 3210FED906F6ED79D90!1029,58E 

22 086rC3OAAI7A8328OCDO6EOO,491 

23 7CAD673E3037C336A1&C18F4, 547 

24 79CB781OFE3006063D000010,353 

25 FE090EF6ED73067FE0614C65,68D 

26 69090&3620E205AF3E30C815,482 

27 C217AUBDD23062A7A3CC201,43E 

28 AI0&3810FEC9D91t1A5C0110,427 

29 7FED49D9140815D901447FED,549 

30 493EF5D800E680D94FCDE1AI,734 

31 30FB21550010FE2B7CB520F9,524 

32 CD0OAI3OECO68ECDDDAI3OE5.75B 

33 3EBEB830E02420F106C1CDE1,66E 

34 A130D678FECE30F4COEIA!00,82E 

35 D9111B5ED926000EA5I81F08,349 

36 2007300FD07500180FC81iAI),368 

37 CO791F4F13I8O7DD7E0OADCO,4Al 

38 OD23180806A72E01CDODA1DO,51A 

39 3EC3B8CB1506A5D2C4AI7CAD,6A4 

40 677A8320CA7CFE01C9CDE1A1,711 

41 D03E193D20FDA70004C83EF5,527 

42 DBOOOOA9£68028F4732F4FD9,5D& 

43 067FE05I7AAB570937C90341,55C 

44 4D53545241442050IE001B00,284 

45 400000000000000000000000,040 

46 000000000000000000000000,000 






funcionar algo, también daré una 
rutina para adaptar una pantalla 
de Spectrum a Amstrad, 
ignorando los atributos. La rutina 
permite adaptar una pantalla de 
Spectrum almacenada a partir de 
la dirección &4000 (cfc I Amstra d) 
y mostrarla directamente en la 
pantalla del Amstrad, desde 
donde se puede salvar para su 
posterior modificación con alguno 
de los muchos programas de 
dibujo que existen. 

La rutina es totalmente 
reubicable, y basta para su 
utilización con llamarla mediante 
la orden - . 

CALL dirección 

Donde dirección es la dirección 
de memoria desde donde se 
encuentra la rutina. En el listado 
ensamblador se la almacena a 
partir de la dirección &9000, para 
que no interfiera con el resto de 
las rutinas que están a partir de la 
dirección &A000. 

El programa Basic que gestiona 
todo esto, podría ser el que 
aparece como programa ejemplo. 

Por último, indicar que las 
rutinas para cargar y salvar se han 
temporizado de la forma más 
aproximada posible, teniendo en 
cuenta la diferencia de frecuencias 
de reloj (3,5 Mhz y 4 Mhz) y los 
redondeos en los tiempos de 
ejecución de las instrucciones en 
Amstrad. Todos los valores que se 
han tenido que cambiar se lian 
extraído y agrupado al principio 
del listado como B1 a B8 para 
SAVE y Ll a L8 para LOAD. 
Todos estos parámetros se pueden 
modificar si se desea, para cargar 
y salvar a velocidades diferentes a 
1.500 baudios que es la velocidad 
estándar en un Spectrum. Si los 
cambios se hacen 
proporcionalmente en B1 a B8, 
deben hacerse también 
proporcionalmente en las 
cantidades que se restan a 256 en 
Ll a L8, para que de este modo 
ambas rutinas se acoplen lo más 
perfectamente posible. De forma 
orientativa se muestran como 
comentario las cantidades que se 
hubieran empleado, teniendo en 
cuenta el redondeo de frecuencia 
que sufre el Amstrad. 

El cargador «Saveload» pertenece 
a la nueva rutina de carga. Debe 


PROGRAMA CARGARUT 

10 LOAO 'sp«trui.bin‘ ( lAO0O 
20 CAIL IAOOO 
30 CLS 

40 PRINT 'Rutinas de carga y salvad 
o instaladas* 

50 UHIIE INKEVtO**:HENO 
60 PRINT 'pulsa una tétela* 

70 UHILE INKEYÍ’"jHEND 
80 KEU 


* _ 

1 CARGADOR TRANSPAN 

DIRECCION DE COMIENZO..9000 

1 2I08C0AF4FE6075779Ü707E6,498 

2 E05F790FOFOFE618B2F64057,522 

3 0620E51AFSE6F07723F13800 ,581 

4 ED67231310F1E1CD26BC793C,5D0 
I 5 FEC020DÓC900000000000000,377 



PROGRAMA EJEMPLO 


10 

MEMORY *,3999 

20 

INPUT 

’noibre para sal var',at 

30 

M0DE 

1 

40 

LOAD 

'spectrui.bin',t,A0O0 

50 

LOAD 

'pantaca*, *,9000 

60 

CALL 

IAOOO 

70 

1L0AC 

,*4000 

80 

CALL 

19000 

90 

SAVE 

,*C000 ,14000 


FUENTE DE U PANTACA " ] 


io oes 49000 

20 ENt * 

30 ADAPT*. LD HL,16008 
40 108 A 

50 BUCLE1: ID C,A 

60 AND 107 

70 LD D,A 

30 LD A,C 

90 RICA 

100 RICA 

110 ANO 4E0 

120 LD E,A 

130 LD A,C 

140 RRCA 

150 RRCA 

160 RRCA 

170 AND 118 

180 0R D 

190 DR 140 

200 LD D,A 

210 LD B,420 

220 PUSH HL 

230 BUCLE2: LD A,(DE) 

240 PUSH AF 

250 AND *F0 

260 LD (HL),A 

270 INC HL 

280 POP AF 

290 LD (HL),0 

300 RRD 

310 INC HL 

320 1HC DE 

330 DJHI BUCLE2 

340 POP HL 

350 CALL IBC26 |SCR NEIT UNE 

360 LD A,C 

370 INC A 

380 CP ICO 

390 JR NZ,BUCLE! 

400 REI 
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UTILIDADES 


ser tecleado desde la opción 1 del 
cargador universal, salvándolo en 
Binario con el nombre «Spectrum». 
El programa «CargaRut» es un 


programa Basic que instala los 
comandos ISA VE y ILOAD y los 
deja listos para su uso. 

El cargador «Transpan» es un 


programa ejemplo y debe también 
ser tecleado con el cargador 
universal, grabándolo con el 
nombre «Pantaca.bin». 


FUENTE DE “ SPECTRUM ’ 


139 

LO 

3, IF6 

207 

OEC 

8 

276 

JR 

LNEIT 

139 

0UT 

(0,6 

208 

I0R 

A 

277 LFLAG: 

RL 

C 

140 

10 

8,I7F 

209 

LO 

A, 130 

278 

I0R 

L 

141 

0UT 

(C),E 

210 6IIS.8: RL 

L 

279 

REI 

NI 

142 

I0R 

0 

211 

JP 

NI, BIT.l 

290 

LO 

A, C 

143 

LO 

C, A 

212 

OEC 

OE 

281 

RRA 


144 

10 

A,E 

213 

INC 

II 

282 

LO 

C, A 

145 

IOS 

tu 

214 

10 

8,87 

2B3 

INC 

OE 

146 

LO 

E, A 

215 

LD 

A, D 

294 

JR 

LOEC 

147 

LO 

A,C 

216 

INC 

A 

285 LVERIE 

LD 

A,(11*00) 

148 

Eli 


217 

JP 

NI,LOOP 

286 

IOR 

L 

149 

to 

6,01 

218 

LO 

9,89 

297 

REI 

NI 

150 

DEC 

L 

219 DELA!: 

OJNI DELAY 

298 LNEIT! 

INC 

II 

151 

K0P 


220 

REI 


289 LOECi 

OEC 

DE 

152 

JR 

NI,LEADER 221 



290 

El 

Ar,Ar* 

153 

10 

B, B2 

222 ¡Rutina LOADi 

291 

LD 

8,lb 

154 

OEC 

H 

223 



232 INARAR i 

LO 

L ,101 

155 

NOP 


224 LBTTES: Eli 


293 LBTS 8: 

CALL EDGE 2 

156 

KOP 


225 

LD 

DE,I5CIA 

294 

REI 

NC 

157 

K0P 


226 

LO 

BC,I7E!0 

295 

ID 

A,L7 

158 

JP 

P,LEADER 

227 

DUT 

10,C 

296 

CP 

9 

159 

LO 

B,B3 

228 

Eli 


297 

RL 

l 

lío smc.ii 

OJNI STNC.I 

229 

INC 

0 

293 

LO 

B,L8 

161 

Eli 


230 

£1 

AE, AT 1 

299 

JP 

NC.LBTS 8 

162 

10 

8,ir6 

231 

DEC 

0 

300 

LO 

A, H 

163 

0UT 

(C),A 

232 

Eli 


301 

IOR 

L 

164 

Eli 


233 

LO 

BC,l?r44 

302 

LO 

H, A 

165 

LO 

A,110 

234 

OUI 

(C),C 

303 

LD 

A, D 

166 

LO 

9,94 

' 235 

LO 

A, IF5 

304 

OR 

E 

167 smc.2 

ojni smc .2 

236 

IN 

A,(100) 

305 

JR 

NI.LLDOP 

168 

Eli 


237 

AND 

II0000000 

306 

ID 

A, H 

169 

LO 

B,IE6 

238 

Eli 


307 

CP 

101 

170 

0U1 

(CÍ,A 

239 

LD 

C, A 

308 

REI 


171 

Eli 


240 LS1ART: CALI EOGE 1 

309 



172 

LO 

6C,12310 

241 

JR 

NC,ESTAR! 

310 EOSE 2: 

CALL EOSE 1 

173 

£1 

AT,AF' 

242 

LD 

HL, 85 

311 

REI 

NC 

174 

ID 

l,A 

243 LUAII; 

OJNI LNAIT 

312 EOGE 1: 

ID 

A, 25 

175 

JP 

SIART 

244 

OEC 

HL 

313 LOELA!: 

DEC 

A 

176 LOOP: 

LD 

A,D 

245 

LD 

A,H 

314 

JR 

NI,LOELA! 

177 

08 

E 

246 

OR 

L 

315 

AND 

A 

178 

JR 

7,PARITT 

247 

JR 

NI,LNAIT 

316 

NOP 


179 

LO 

L,(11*00) 248 

CALE EDGE 2 

317 LSANPL: 

INC 

9 

180 LOOP.P: 

10 

A, H 

249 

JR 

NC.LSTART 318 

REI 

I 

181 

X0R 

L 

250 LLEAO: 

10 

8,L1 

319 

LD 

A.IF5 

182 STARTi 

LO 

H,A 

251 

CALI 

EDGE 2 

320 

IN 

A,(100) 

183 

LD 

A, 130 

252 

JR 

NC.LSTART 

321 

NOP 


184 

ser 


253 

LO 

A, 12 

322 

IOR 

c 

185 

jp 

BITS 8 

254 

CP 

8 

323 

ANO 

ZIOOOOQOO 

18b PAKITT: 10 

L,H 

255 

JR 

NC.LSTART 

324 

JR 

2 r LSAMFL 

18/ 

JR 

LOOP P 

256 

INC 

H 

325 

LO 

Aje 

188 8IT.2: 

LO 

A, C 

257 

JR 

NI.LLEAO 

326 

CPL 

183 

BIT 

7,B 

258 LSYHC: 

LO 

8,13 

327 

LO 

C,A 

130 Bill: 

OJNI 

BIT.I 

259 

CALL 

ED6E 1 

328 

Eli 


191 

JR 

NC,0UT 

260 

JR 

NC.LSTART 

329 

LO 

8,17F 

192 

LO 

8,85 

261 

LO 

A, B 

330 

OUT 

(C),D 

193 

NOP 


262 

CP 

L4 

331 

LO 

A,0 

194 

NOP 


263 

JR 

NC,L$mC 

332 

IOR 

E 

195 SET: 

OJNI 

SET 

264 

CALL 

EOSE 1 

333 

LO 

D,A 

136 0UI: 

Eli 


265 

REI 

NC 

334 

Eli 


137 

LO 

B,IF6 

266 

Eli 


335 

ser 


198 

0UT 

(0 ,A 

267 

LO 

DE,I5EIB 

336 

RET 


199 

10 

B,I7F 

268 

Eli 


337 



200 

GUI 

(C),H 

263 

LO 

H, «00 

338 CABEC: 

OEEB 3 

201 

LO 

C,H 

270 

10 

8,L5 

339 NOMBRE: 

DErit 

■ANSIRAO P.' 

202 

LO 

H,L 

271 

JR 

mm 

340 L0N61T: 

OEEU 6912 

203 

LO 

L,C 

272 LLOQPi 

El 

AF.AP 

341 INICIO: 

OETU 

16384 

204 

Eli 


273 

JR 

NI,LELAS 

342 

OETN 0 

205 

10 

8, BE 

274 

JR 

NCjLVERIE 

343 CBOFFi 

DEES 

¡7 

206 

JR 

NI,8IT_2 

275 

LD 

(11*00),L 

344 IEN0: 




1 ¡Rutinas para la (reacción ¡r gestión de los coiandos RSI: 

2 ;¡SAVE,conienio,longitud 

3 ¡¡LOAD.coiíenzo 

4 

5 ¡Tabla de «alores de los paraaetros de SAVE¡ 

6 


7 

{Nuiero 

Valor 4 nhz 

Valor 3,5 Nh: 

8 

81 

EQli 

147 

¡129 

9 

82 

EOU 

145 

¡127 

10 

83 

too 

40 

¡35 

11 

84 

EOU 

50 

mi 

12 

95 

EDO 

61 

¡53 

13 

86 

EDO 

54 

¡47 

14 

97 

EOU 

42 

¡37 

15 

B8 

EDO 

56 

¡49 


Ib 

17 ¡Tabla de «alores de los paraietros de LCAD: 
19 

Valor 4 Hhz 


19 ¡Mulero 


20 Eli 

EOU 

256-114 

21 L2: 

EOU 

256-66 

22 L3: 

EOU 

256-63 

23 L4¡ 

EOU 

256-50 

24 LSl 

EOU 

256-91 

25 L6: 

EOU 

256-89 

26 L7: 

EOU 

256-61 

27 L8: 

EOU 

256-91 

28 



29 ¡Inicialitacion: 

30 



31 

0R6 

1AOOO 

32 

EN1 

1 

33 

LO 

BC,TABLA 

34 

LO 

HL,BUFFER 

35 

JP 

IBCDI 

36 



37 ¡Tablas de los coiandos R 

39 



39 TABLA: 

DEF14 TOAENS 

40 

JP 

SAVE 

41 

JP 

LOAD 

42 



43 TOAENS: 

OEFN 

•SAV* 

44 

OEEB 

"E* *130 

45 

OETN 

■LOA 1 

46 

DEL 9 

# D'*I8Q 

47 

DETB 0 

49 



49 BUFFER 

DEFS 4 

50 



51 ¡Coaando !SAVE * 

52 



53 SAVE: 

CP 

2 

54 

RET 

NI 

55 

ID 

L,(II*0) 

56 

LO 

H,(11*11 

57 

LO 

(L0N6!TI,HL 

59 

LD 

L,(II*2) 

59 

LO 

H, (11*3) 

60 

LO 

(INICIO),HL 

61 

CALL I8CA7 

62 

CALL IBC6E 

63 

DI 


64 

LO 

8C,l7ri0 

65 

OUT 

<C),C 

66 

Eli 


67 

PUSH BC 

69 

LD 

DE,I205C 

69 

LO 

HL.I445E 


Valor 3,5 Hhz 
¡100 
¡59 
¡55 

¡90 

¡79 

¡53 


¡Kl LOS EIT 


70 

Eli 

71 

El AF,AF* 

72 

PUSH AF 

73 

74 

LO II,CABEC 

75 

LO OE,17 

76 

IOR A 

77 

CALL BYIES 

78 

LO HL,970 

79 PAUSA: 

OJNI PAUSA 

80 

DEC HL 

91 

LO A,H 

82 

OR L 

83 

JR NI,PAUSA 

84 

LO II,(INICIO) 

85 

LO DE,(LOKGIT) 

96 

LO A,IFF 

97 

CALL BITES 

89 

83 EINISH: 

POP AF 

90 

El AF,AF* 

91 

POP se 

32 

Eli 

93 

El 

94 

CALL I8C38 

35 

CALL I8C38 

96 

JP I8C71 

9) 

98 ¡Colando ¡LOAD: 

99 

1O0 LOAO: 

CP 1 

101 

RET NI 

102 

LO L,(11*0) 

103 

LO H,(1X * 1) 

104 

LO (INICIO),HL 

105 

CALL I8CA7 

106 

CALL 1BC6E 

107 

OI 

108 

Eli 

109 

PUSH 8C 

110 

El AF, AF* 

111 

PUSH AF 

112 LOAO E¡ 

LO IX.CBUFr 

113 

LO OE,17 

114 

IOR A 

115 

ser 

116 

CALL LBTTES 

117 

JR NC.LOAO E 

118 

LO 11,(INICIO) 

113 

LO OE,(C8UFF♦11 ¡ 

120 

lo A,trr 

¡21 

5CF 

122 

CALL L8YTES 

123 

JR F1NISH 

124 

125 ¡Rutina SAVE: 

126 

127 BÍTES: 

LO Hl.IlFBO 

129 

8TI 7,A 

129 

JR I.FLAS 

130 

LO HL,I0C98 

131 ELAG: 

£1 AF,AF* 

132 

INC OE 

133 

OEC II 

134 

LO A,130 

135 

LD 8,2 

136 LEADER: 

OJNI LEADER 

137 

Eli 
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No se ven 
los gráficos 

Mi problema es el 
siguiente: 

Tengo un Amstrad 

_ PC 1640 DD y un 

monitor PC-MM. Pues el 
problema radica en que no hay 
manera de que un programa en el 
que salga cualquier tipo de gráfico 
y que en un PC-1512 funciona 
perfectamente, en el mío salen las 
letras y las explicaciones pero no 
los gráficos. 

Mi preocupación ha sido mayor 
al leer que el PC-1640 es 
totalmente compatible con el 
PC-1512. 

¿Qué es lo que falla? ¿Cuál es 
la solución? ¿Está estropeado el 
ordenador? 

Óscar Estreins (¡uajardo 

No creemos que el ordenador esté 
estropeado, en principio. Si 
recuerda cuándo compró la 
máquina, en el cristal del monitor 
debía ir pegado un papelito en el 
cual se indicaba la posición 
correcta de una serie de 
conmutadores, sitos en la parte 
posterior del ordenador, cuya 
posición es crítica para que el PC 
sepa con qué monitor se está 
| jugando los cuartos, y actúe en 
consecuencia. Revíselos. Si están 
en posición correcta, acuda al que 
le \endió el PC. Puede, en electo, 
haber algún problema serio. 


La Biblia en verso 

Mi ordenador es el Amstrad 
6128, 128 K, Disco Floppy. Tengo 
el disco de regalo que va incluido 
en la adquisición del mismo. En 
ese disco está el programa de 
proceso de texto llamado 
«Eamsword». 

Tengo la intención de procesar 
\ en texto la Biblia por razones de 
tiempo en buscar en ella. Y aquí 
entráis vosotros: como debéis 
saber, la Biblia se compone de 
libros, capítulos y versículos. A la 
hora de buscar el libro no hay 



problema, ya que el mismo 
procesador busca los ficheros. El 
problema reside en buscar el 
capítulo y el versículo. Para ello 
necesito una rutina que creo no 
tendré problemas de hacerlo yo 
mismo. Pero para ello necesitaría 
saber la dirección de comienzo de 
los ficheros que crea el procesador 
o Iu manera de desproteger el 
programa para averiguarlo entre 
sus lineas. 

Antonio Biesa Gaya 

La tarca que usted se ha impuesto 
es de una gigantesca magnitud. 
Para empezar, necesitará una 
montaña de discos para meter 
todo ese texto. Muchos discos. 
Para terminar, el Eamsword tal 
vez no sea la herramienta 
adecuada para ello, pero, por si 
acaso, tendría que escribir un 
programa que aceptara como 
entrada el fichero donde está la 
frase que se desea encontrar. 
Luego, verificar que dicho fichero 
se encuentra efectivamente en el 
disco que esté usando. Si no es 
así, el usuario debería 
introducirlo. Una vez resuelto 
esto, abra el fichero en cuestión 
con OPENIN, léalo línea a línea 
(1NPUT ^9) y, usando la orden 
INSTR intente localizarla en la 
línea que ha leído, hasta que el 
fichero se acabe o aparezca. 

En cualquier caso, le 
desaconsejamos usar un CPC para 
procesar la Biblia. Se puede 
hacer, pero el programa va a 
tardar más en encontrar algo que 
usted haciéndolo a mano, nos 
tememos. 


Eamsword ataca 
de nuevo 

Este programa funciona bien, 
pero al intentar cargar algún texto 
grabado, me sale el siguiente 
mensaje: «.Load Failed-Retry». 

Yo incluí una línea para que me 
dijera el error y en qué línea se 
encontraba, y me daba lo 
siguiente: error 5 (improper 
argument), en la línea 4540. 

Cuando me vuelve aI menú yo 


selecciono «editar » y me sale 
algunas veces las dos o tres 
primeras líneas, pero solamente la 
mitad, en la otra mitad hay un 
gran cuadro verde (es que mi 
monitor es verde). 

Antonio J. Manzano García 

El mensaje que obtiene de «Load 
Failed...» no proviene del 
programa. El problema está 
en el disco: el ordenador es 
incapaz de fichero que se 
le indica. Le aconsejamos que 
cambie de disco y lo intente de 
nuevo. 

En cuanto al error «Improper 
argument...» de la línea 4540, el 
problema probablemente esté en 
alguna de las variables que 
afecta i a lo s comandos Y11DS de 
dicha línea. Una técnica 
para averiguarlo sería seguirles la 
pista a lo largo del programa, 
incluso mediante sentencias 
Print. 

La última cuestión que nos 
plantea no nos parece clara, es 
decir, no contamos con la 
suficiente información para 
resolvérsela. Por lo que nos dice, 
parece ser, pero sólo parece, un 
nuevo problema con la carga del 
fichero del disco a la memoria del 
programa, en el sentido de que no 
lo incorpora completamente. 

| Sugerimos de nuevo que intente 
trasladar todos sus textos a discos 
nuevos, así como el propio 
Eamsword. 

Basic de IBM 
en el 464 

Todas mis consultas están 
directamente relacionadas en que 
estudio informática con un 
ordenador IBM sistema 36 y a! 
intentar hacer 
programas de la 
academia en mi 
Amstrad 464, me 
doy cuenta de que 
algunas cosas no sé \ 
hacerlas en mi 
recién comprado 
ordenador. 

Mis preguntas l—1 

son: 
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a) ¿Cómo se abren 
¡os ficheros (lanío de 
entrada de datos como 
de lectura)? ¿Se 
utilizada para escribir 
en el fichero M 'rile y 
para leer Read? 

IBM: 

OREN /: 

“ÑAME = NOMBRE 


DEL BICHERO, NEW, 
RECL - LONGITUD", 


OUTPUT- INP UT, 
SEQUENTIAL. 

b) ¿ Cómo se dimensionali las 
tablas? 


IBM: 


10 D/M TABLA$(10)*40 

c) ¿Se pueden sustraer de una 
cadena caracteres y, de ser así, 
cómo? 

IBM: 

AS - “LUNES" 

B$ = A$(3 5) 

d) Sí o no: ¿se pueden usar los 
programas que publican de Geni 
Basic en el Alustrad 464. 

Miguel Ángel Comendador Díaz 


Suponemos, por la índole de sus 
preguntas, que posee un 464 con 
unidad de disco. Partiendo de 
aquí, lo primero que hay que 
comentar es que un Amstrud C’PC 
sólo lleva implementados en el 
Basic ficheros sccuenciales. 

I os aleatorios, aunque existen, 
deben manipularse desde lenguaje 
máquina. 

Si está interesado, le remitimos 
al «Manual del Firmware». 

Por otra parte, para abrir un 
fichero para lectura, la manera 
más simple es OPENIN 
«nombre». Para escritura, algo 
muy similar: OPENOUT 
«nombre». 

Las tablas, o matrices, se 
declaran con la orden DI.VI, 
seguido de la dimensión de cada 
campo. 

Por ejemplo, para crear la tabla 
que usted nos muestra como 
ejemplo: DIM tablaS (10). 

Esto crea una matriz de 10 
elementos, cada uno de una 
longitud máxima de 255 
caracteres. 

Si desease que la tabla tuviera 
dos dimensiones: DIM tablaS 
(10,40). Tenemos una matriz con 


10 filas, cada una de las cuales 
posee 40 columnas. 

Se pueden sustraer caracteres de 
una cadena mediante las órdenes 
del Basic LEFTS, MID$ y 
R Til LI S. Los programas escritos 
mi Geni Basic no funcionarán en 
mgún caso en un Alustrad 464. 

Acerca 
del PC 1640 


Una vez decidido a comprar un 
ordenador, me fijé en tas 
excelentes características que 
ofrecía el PC 1640, sin embargo 
hay diversas cuestiones que me 
hacen dudar: 

— Su antecesor, el PC 1512 
tiene un serio problema, de sobra 
conocido, que es el excesivo 
calentamiento después de una 
sesión de trabajo un poco larga. 
Ignoro si este problema en el PC 
1640 ha sido subsanado de alguna 
manera o bien se continúa 
dependiendo de «inventos» que se 
le puedan acoplar, como 
ventiladores bajo el disco duro, 
tarjetas con ventilación, etc. 

— Otro serio problema del PC 
1512 es, según tengo entendido, la 
fuente de alimentación, al parecer 
demasiado corta de potencia sobre 
todo cuando se escogía Ia 
configuración con disco duro, y 
ya que es esta misma 
configuración la que yo deseo del 
PC 1640, me gustaría saber si este 
problema continúa existiendo. 

— Por último, un detalle ajeno 
a la máquina en si, pero no por 
ello menos importante, es el que 
supone el servicio posI venía del 
que me han dado pésimas 
referencias sobre lodo en cuanto a 
plazos de reparaciones, ya que al 
parecer todo el servicio de los 
productos Amstrad recae sobre 
Mude, y esta empresa se ve 
completamente desbordada por el 
volumen de reparaciones existente. 

Dado que mi deseo es darle un 
uso profesional al ordenador 
(principalmente diseño asistido, 
con autocad), todas estas 
cuestiones resultan de vita! 
importancia para poder tomar una 
decisión correcta. 

Alvaro Lop López 


El PC 1640 es una máquina 
bastante mejorada respecto al 
1512. Incluso los nuevos 1512, de 
última hornada, no tienen los 
mismos problemas que sus menos 
a l o r t u n a dos a n t ece so r es. 

Por ejemplo: nosotros llevamos 
usando desde hace unos meses un 
1640, con disco duro y una serie 
de tarjetas extras, y no se 
calienta, bloquea ni nada parecido. 

Lo mismo le decimos respecto a 
la fuente de alimentación del 
1640. 

A nosotros, al menos, no nos 
da problemas. 

En cuanto al tema del servicio 
postventa de Alustrad España, 
liay para todos los gustos. 

Hav muchas personas que no 
están contentas con él, y 
otras que han recibido una 
experiencia diferente, más 
positiva. 

Hay una cosa muy clara: no es 
realista esperar en nuestro país un 
servicio poshventa comparable al 
europeo, y, sobre todo, al 
norteamericano, hablando muy en 
general. 

Hay gente que son la excepción 
que confirma la rega, pero muy 
poquitos. 

Este mal endémico está 
reduciendo su virulencia, pero tal 
vez más despacio de lo que el 
consumidor desearía, y por 
el momento no existen 
alternativas. 

El asunto, según Amstrad 
España, se debe a la enorme y 
constante cantidad de pedidos que , 
reciben. A pocos 
problemas 
postventa que les 
suceda, se ven 
desbordados. 

Usted mismo es 
quien debe 
juzgar la validez 
de tal 

argumentación. 



-.—i ' 

Por favor, para una mayor rapi- l r 
dez en la respuesta de sus cartas 
enviadas a esta sección, escribir a: 

AMSTRAD PERSONAL 
Referencia «Sin duda alguna» 
Cira, de Iriín, km 12,400 
28049 MADRID 
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Hace tan sólo dos números 
anticipábamos la próxima aparición 
de un nuevo ordenador Amstrad: un 
portátil ' compatible PC, a un precio 
muy razonable. Tras haberlo tenido 
bajo nuestros dedos durante algunos 
días , éstas son nuestras conclusiones. 


Todo 
sobre 
el nuevo 


PORTATIL DE 

AMSTRAD 


S i bien en cualquier otro tipo 
de ordenador, el tamaño, la 
forma, el peso y la 
ergonomía son cuestiones 
intrascendentes, y que siempre 
suponen un añadido a las virtudes 
o defectos que pueda tener una 
máquina determinada, en el caso 


de los portátiles no queda más 
remedio que comenzar su análisis 
por estos puntos. 

Cuando un fabricante se lanza 
a la difícil tarea de poner un 
portátil en el mercado, se ve 
obligado a recortar algunas 
características que suelen tener los 


personales de mesa. Si, tras este 
recorte, el producto final carece 
de una verdadera 
transportabilidad, entonces mal 
asunto. En el caso del Amstrad 
PPC, estos recortes no sólo han 
sido mínimos, sino que hay 
añadidos en algunos casos, y todo 



Comienzo de una sesión de trabajo. El PPC se encuentra cerrado. La tapadera es el mismo teclado, 
la pantalla se encuentra plegada sobre la unidad central. 
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ello asegurando un cómodo 
transporte del equipo. 

Lo primero que sorprende, al 
ver por primera vez un PPC, es 
su cuidada estética. Desde luego, 
es la primera máquina en la que 
Amstrad ha desplegado toda su 
imaginación, consiguiendo un 
producto con una presentación 
inmejorable. Como en cualquier 
otro sistema informático, el 
conjunto base se encuentra 
formado por cuatro partes 
fundamentales, que en este caso 
se encuentran físicamente 
integradas en una misma pieza: 

— La unidad central. 

— El teclado. 

— El monitor. 

— Las unidades de disco. 

La unidad central alberga en su 
interior un microprocesador 8086, 
y básicamente no se diferencia de 
una unidad central de un 1512 o 
un 1640. Evidentemente, carece de 
espacio donde alojar tarjetas de 
expansión. Para resolver este 
problema en la parte trasera cuenta 
con dos buses que le permitirán 
disponer, exteriormente, de los 
periféricos que necesite. 

En la misma unidad central se 
encuentran: un RS232, un port 
Centróme para impresora, entrada 





Detalle de la parte posterior. Todas las conexiones se encuentran 
ocultas. Al abrir la tapa quedan al exterior. 


MIRROR: UNA SOLUCION 
A LAS COMUNICACIONES 


GRÁFICO 1 


A pesar de que tarde o tempra¬ 
no, qué duda cabe, los discos de 
3” 1/2 acabarán imponiéndose, 
llegando incluso a ocupar la ca¬ 
tegoría de estándar del mercado, 
por el momento las 5” 1/4 son 
las que poseen este liderazgo. 
Mientras esta situación no cam¬ 
bie, los ordenadores que cuentan 
con este tipo de unidades, a pe¬ 
sar de su compatibilidad, no de¬ 
jan de ser como pequeñas islas 
capaces de tragar toda la exten- 
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sa gama de software disponible 
para PC, pero no de utilizarla. 

Para paliar este problema exis¬ 
ten dos posibilidades. La primera 
es comprar una unidad de disco 
de 5” 1/4, que naturalmente de¬ 
berá ir conectada exteriormente. 
Esta primera solución presenta 
varios problemas. Deberá hacer 
un desembolso considerable de 
dinero, unas 30.000 pesetas, se¬ 
gún marca y modelo. Una uni¬ 
dad de disco que por otra parte 
va a utilizar mínimamente dada 
la potencia de la disketeraque su 
equipo trae de fábrica. 

Por otro lado, esta herramien¬ 
ta adicional incrementará inne¬ 
cesariamente el volumen y el pe¬ 
so de su portátil. La siguiente so¬ 
lución consiste en utilizar un pro¬ 
grama de comunicaciones. 

Alustrad ha apostado por que 
usted emplee esta solución y para 
ello le ofrece la salida RS232, ne¬ 
cesaria en cualquier programa de 
comunicaciones, incorporada en 
el equipo y un potente programa 


de comunicaciones que sorprende 
por su facilidad de uso: Mirror. 

Para utilizar esta herramienta 
sólo necesita realizar un cable de 
conexión de módem nulo, mon¬ 
tado tal y como se detalla en el 
gráfico. 

El programa se encuentra ín¬ 
tegramente gobernado por me- 
nús y rápidamente se familiari¬ 
zará con él, consiguiendo sus pri¬ 
meros resultados. Nosotros he¬ 
mos realizado pruebas alcanzan¬ 
do velocidades de transmisión de 
19.200 baudios, casi 2.000 bvtes 
por segundo, con completo éxi¬ 
to y sin ningún tipo de error. 

Si usted se decide por el mode¬ 
lo con módem, o piensa acoplar¬ 
le uno exterior, el programa le 
permitirá también connotarlo al 
100 por 100 y podrá utilizar nor¬ 
mas como Preste! o Minitel . 

Para la transmisión de fiche¬ 
ros PC a PC, no debe olvidar 
que necesitará también un pro¬ 
grama de comunicaciones, 
Crosstall, por ejemplo, podría ir¬ 
le perfectamente. No obstante, 
sería ideal que la propia Ams¬ 



trad .esperamos que esta pro¬ 
puesta sea acogida positivamente, 
dado que aún no ha comenzado 
la comercialización del produc¬ 
to, ofreciese dentro de los discos 
que da con el equipo, el propio 
Mirror en formato de 5” 1/4, lo 
que facilitada enormemente los 
primeros trabajos del usuario. 

No obstante, si usted no dis¬ 
pone de ningún paquete de co¬ 
municaciones para su PC de dis¬ 
co grande, puede probar a inten¬ 
tar pasar desde el propio 
MSDOS, mediante la instrucción 
:opv (repase su manual de DOS), 
el programa Mirror. 
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PPC 


de vídeo y, en el caso de los que 
añaden módem, una salida para 
su conexión telefónica. Aparte, 
claro está, de los dos ports de 
expansión mencionados. 

La pantalla es del tipo cuarzo 
líquido y el único defecto que 
puede encontrársele, como a todas 
estas pantallas, es que para una 
cómoda visión el área de trabajo 
debe encontrarse bien iluminada. 
Al contrario que las pantallas 
normales, en este caso, cuanto 
mayor sea la cantidad de luz 
ambiente mejor será su definición. 
Para resolver este problema, la 
unidad central incluye un 
regulador de contraste que le 
permitirá adaptar la pantalla a las 
condiciones ambientes. Para una 
cómoda visión desde cualquier 
ángulo, siempre frontal al teclado, 
la pantalla admite siete posiciones 
diferentes que le permitirán 
adaptar la altura de su cabeza 
respecto a la pantalla. 

Las unidades de disco son del 
tipo 3” 1/2, un estándar que se 
está haciendo con la totalidad del 
mercado, debido a su alta 
capacidad, 800 K (720 
formateados), y a su alto nivel de 
fiabilidad. 

El teclado es una de las mejores 


E.UD 


Todas las 
posibles tomas 
eléctricas para 
el PPC. Pilas, 
fuente de 
alimentación a 
la red y cable 
para la toma 
del mechero de 
un vehículo. 
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La pantalla 
admite todo 
tipo de grá¬ 
ficos, incluso 
algunos jue¬ 
gos se pres¬ 
tan 

perfecta¬ 
mente a ser 
utilizados. 


piezas con que 
cuenta el 
equipo. 
Dispone de 15 
teclas más que 
los PCs 
normales. 
Cuenta con 
todas las teclas 
de edición 
separadas del 
Keypard, lo que le dota de gran 
manejabilidad, aunque al 
principio cuesta un poco 
acostumbrarse. Entre estas teclas 
destacan dos que le permitirán 
visualizar en la pantalla gráficos 
diseñados en color, mediante una 
inversión de tonos que de otro 



A 


Las unidades de disco, en este caso dos, se encuentran alojadas en el lateral 
derecho de la unidad central. Seguramente, muy pronto alguien se anime a 
fabricar un disco duro para este espacio. 



El equipo permite su conexión eléctri¬ 
ca al mechero del coche. 



Detalle del teclado, de tipo expandi¬ 
do. Quince teclas más que en los PCs 
normales, lo convierte en muy eficaz. 



modo serían invisibles. Otra 
manda la señal de vídeo hacia un 
monitor extra. 

En líneas generales, el Amstrad 
PPC puede considerarse como un 
auténtico compatible y lo que es más 
importante, con sus 5,9 kg de peso, 
como un verdadero portátil. ■ 


El transporte, en la bolsa que ofrece el 
fabricante, resulta sencillo y cómodo. 
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Entre los pasados 11 y 16 de 
abril tuvo lugar, en Barcelona, 
una nueva edición de Informat. 
Muchas novedades en la infor¬ 
mática de altura y pocas, muy 
pocas o ninguna, para la do- 
méstica. _ 

Informat 88 
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Barcelona byte a byte 


S in lugar a dudas, la 

pretensión de la organización 
de la t'eria, de hacer creer al 
público que la edición de 



El stand de IBM lleno de sus nuevos PS2. 



Informat de este año ha cubierto 
el 100 por 100 de la informática, 
es del todo errónea. 

Es difícil entender la razón por 
ese intento de convertir en 
proscrito de la informática todo 
aquello que es baralo, de gran 
difusión y que tiene entre sus 
máximas aptitudes una alta 
capacidad tanto gráfica como 
sonora. 

Quizás sea difícil, muy difícil, 
mezclar un sistema 36 de IBM con 
un sencillo Sinclair Spectrum. No 
obstante, en toda feria que 



Tándom, una de las marcas que más pre¬ 
sentó para PC en el Informat. 


1 



El PC, estrella del Informat sin la menor 
duda. 


pretenda como esta agrupar el 100 
por 100 del sector, cada una de 
las necesidades que pide el 
mercado, se encuentran repartidas 
en zonas de interés común. 

Evidentemente, los grandes del 
mercado del ordenador doméstico: 
Amstrad, Atari y Commodore, 
estuvieron presentes con toda su 
gama de productos. Sin embargo, 
en lo que a Soft se refiere, 
ausencia total. 

Fue de destacar también la 
presencia de MHT, compañía 
dedicada al desarrollo de 
periféricos para Amstrad y 
Spectrum, que últimamente 
centra sus esfuerzos en su 
convertidor de vídeo para 
Amstrad PC y un modulador para 
TV. 

En el terreno del software para 
PC se presentó, por parte de 
Softronic, de una nueva versión 
del conocido Turbo Pascal, la 4.0, 


























































que presenta como 
característica 
fundamental la 
posibilidad de soportar 
programas con más de 
64 K y la compilación 
en ficheros tipo EXE. 

Otras características 
interesantes de esta 
versión son su potente 
editor, basado en ventanas, 
posibilidad de detección 
interactiva de errores, distintas 
fuentes en la salida y, sobre todo, 
un aumento considerable de la 
ejecución de los programas, así 
como reducción de su código. 

En sistemas operativos, el Xenix 
versión PC del conocido Unix, 
sigue manteniendo un crecimiento 
lento pero continuo que, aunque 
sin llegar evidentemente a la 
trascendencia y difusión del MS 
Dos, sí está consiguiendo, al 
menos en los sectores más 
profesionalizados, una enorme 
aceptación. 

En lo que respecta al hardware, 
la gama de ordenadores basados 
en el potente 80286 e incluso en 
los 80386, empiezan a copar la 
atención de los profesionales. 
Aunque, por el momento, todavía 
quedan muy lejos de las 
posibilidades de un usuario 
medio. 

De sorprendente novedad puede 
calificarse el Giga Tape, un 
potente sistema de 
almacenamiento, cuyas cintas son 
de un tamaño de 54 mm, por 736 
con una capacidad de 1.2 
Gigabytes. El sistema se presenta 
como sistema de backup con una 
velocidad de registro de 129 KB 
por segundo. El enfoque, 
evidentemente, es hacia grandes 
sistemas, aunque no existe 
problema alguno en hacerlo 
funcionar junto a un PC. 

Siempre, claro, esté usted 
dispuesto a gastar alrededor de un 
millón de pesetas en el lector de 
cintas y en el interface necesario. 

Como en ediciones anteriores, 
el tema de las comunicaciones ha 
sido otro de los temas más 
mimados por los distribuidores. 

En particular, un buen número de 
empresas francesas intentan 
exportar su sistema Minitel a 
nuestro país. Para ello, ofrecen 


Cinta con varios Mega- 
bytes y acceso similar a 
un disco duro. 

la 


Nueva impresora de Amstrad que mu > 
pronto tendremos ocasión de analizar 
detalle. 


Microsoft, líder del soft para PC, comien¬ 
za a pisar fuerte en España. 


kits completos que permiten 
convertir su PC, XT o AT, en un 
sersidor de información por un 
precio bastante económico. Estas 
bases de datos, conectables 
directamente a la red telefónica 
normal, tienen una capacidad de 
una a 16 vías, lo que le permitiría 
atender entre 10 y 60 llamadas en 
una jornada normal de ocho 
horas de trabajo. 

Durante los días que ha durado 
la feria, el visitante ha tenido 
también ocasión de contemplar y 
manejar toda una red de 
comunicaciones que agrupaba a 
un buen número de empresas del 
sector, que habían puesto a 
disposición de esta red un 


Hewlett Packard, un tanto desconocida 
en nuestro país, presentó importantes 
novedades en el campo profesional. \ 


terminal de datos inteligente. 

Paralelamente a la feria, se 
desarrollaron una larga lista de 
jornadas, con todos los temas que 
en la actualidad constituyen la 
punta de lanza de la informática 
de 1988. Los servicios Iberlex, 
bases de datos relaciónales, 
edificios inteligentes, sistemas 
expertos y Unix eran, sin duda, 
los temas más atractivos de estas 
jornadas. ■ 


z' 





















































SOFTWARE 


U 

& 



Turbo Prolog es un nuevo len¬ 
guaje muy cercano a ía forma de 
pensar y razonar de una ser hu¬ 
mano. Por eso, es la herramien¬ 
ta idónea para resolver todo ti¬ 
po de problemas informáticos. 



EL LENGUAJE: INTELIGENTE 


C uando uno se sienta frente 
a un teclado para que el 
ordenador le resuelva un 
problema, inmediatamente surge 
el obstáculo principal: 
comunicarse con la máquina. 
Para obviarlo, han aparecido a 
lo largo de los años, los 
lenguajes de programación. La 
mayoría de ellos son 
algorítmicos, es decir, las ideas 
deben expresarse en un formato 
numérico, ajustándose a una 
sintaxis que le facilita la vida al 
ordenador, pero no a la persona. 
Todos hemos aprendido a vivir 
con este inconveniente, y a 
aceptarlo como otra factura más 


FICHA TÉCNICA 


Turbo Prolog: 2 discos y 
manual de 220 páginas. 
Equipo mínimo necesario: 
Amstrad PCI512 con una 
unidad de disco. 

Equipo mínimo aconsejado: 
Amstrad PCI512 con dos 
unidades de disco. 
Distribuidor: DSE. 

Infanta Mercedes, 83. 

Madrid. 

Tel. (91) 571 52 00. 

En Barcelona: Tel. (93) 

336 33 62. 

Precio: 22.400 (IVA incluido). 


que nos pasa la tecnología. Sin 
embargo, en los años setenta 
tuvo lugar un drástico cambio de 
enfoque de decisiva importancia 
para el futuro de la 
comunicación hombre-máquina: 
aparecieron los lenguajes 
declarativos, de los que el 
Prolog es su representante más 
conspicuo. 

Aquellos acostumbrados a 
lenguajes como Basic o Pascal, 
saben perfectamente que, para 
que el ordenador resuelva un 
problema, el programador debe 
conocer también la solución, y 
ser capa/ de expresar ese 
conocimiento en forma de un 
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List ado 1 

/* Declaración de doiinios (tipos de datos) */ 
doiains 

habitación = sy«bol 
1istadehabitauones = habitación» 

/» Declaración de lo que en Pascal se llaiaria procedures */ 

predícales 

galeriathabitac ion,habitación) 
vecinaOiabit adon, habitación) 

evit a(1 ista_de_habit aciones) 
ir(habitacion,habitación) 

hay ca»ino(habitacion,habitacion,lista_de_habitaciones) 
iie«bro(habitacion,lista_de_habitac iones) 

I* Hechos y reglas que (ornan la base de datos »/ 


/* Conienzan las reglas propiaiente dichas »/ 

yecina(X r Y) if galeria(Y,Y). 
vecinatX,Y) if galeria(Y,X). 

evita((*onstruos,ladrones)). 

ir(Aquí p Allí) if hay_caiino(Aqui,Alli,[Aqui]) f fail. 
ir(_,_). 



algoritmo inteligible para la 
computadora. 

Esto no sucede en Prolog. 
Aquí, basta que el programador 
sepa las reglas que se deben 
aplicar para 
resolver algo, 
reglas lógicas, se 
las escriba a la 
máquina con una 
sintaxis casi 
idéntica al 
castellano normal, 
y listo. Es decir, 
la persona plantea 
un problema a la 
computadora, y 
ésta, basándose en 
los hechos 
conocidos y en las 
reglas que los 
relacionan, 
encuentra al menos una solución 
que satisfaga el conjunto de 
restricciones (reglas). Es una 
forma de operar parecida a la 
que el hombre emplea para 
resolver una ecuación. 

Veamos un ejemplo que se 
encuentra recogido en el manual 
del Turbo Prolog, y que consiste 
en encontrar la salida de un 
laberinto, el cual tiene una 
entrada, una salida, y una serie 
de habitaciones conectadas por 
pasadizos, de las cuales algunas 
deben ser evitadas porque 
contienen trampas o peligros 
mortales. Nuestro objetivo es ir 
a la habitación del tesoro, 
cogerlo y escapar con vida. 

Veamos: nuestro objetivo es ir 
de la entrada a la salida. En 
Turbo Prolog, esto puede 
expresarse así: 


hay_ca«ino(salida,salida f AtravesDe) if 
aie*bro(tesoro,AtravesOe) and 
vrite(AtravesDe) and ni. 

hay_ca«ino(Habitacion,Caaino_salida,AtravesOe) if 
vecina(Habitacion,OtraHabitacion) and 
evita(HabitacionesPelígrosas) and 

not(«ie«bro(OtraHabitacion t HabitacionesPeligrosas)) and 
not(iieíbro(OtraHabitacion,AtravesOe)) and 

hay ca«ino(OtraHabitacion,Ca*ino_salida r [OtraHabitaciónÍAtravesDel). 

•ienbroü.mj). 

«ieabro(X r [_¡H1) if »le»bro (X,H). 

/» fin del programa »/ 


clauses 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 

galeri 


a(entrada,»onstruos). 
a(entrada,fuente). 
atsalida,fuente). 
a(co«ida,tesoro), 
a(fuente,hel1). 
a(fuente,co»ida). 
a(fuente,sirena). 
a(fuente,ladrones). 
a(sirena,salida). 
a(»onstruos,tesoro), 
afsirena,tesoro), 
adadrones. tesoro). 
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ir(entrada,salida). 

Generalizando esto, se puede 
decir: 

ir(Aquí,Allí). 

Evidentemente, para ir de un 
sitio a otro, debe existir una ruta 
o camino entre ambos lugares 
formado por las habitaciones 
que atravesemos, es decir, por 
una lista de «Aquí», ya que 
«Aquí» es siempre la habitación 
en la que nos encontramos. Esta 
condición es imprescindible. Por 
tanto, resulta que para ir de la 
entrada a la salida hay una 
regla, que podemos escribir así: 

ir(z\quí,Allí) SI 

hay—ruta(Aquí,Allí[Aquí]). 

Los corchetes es la forma de 
expresar en Prolog una lista de 
objetos. 

Veamos ahora las reglas que 
hacen posible que exista una 
ruta entre dos puntos. 

Para ello, debemos recordar 
dos cosas: 

— pretendemos visitar cada 
habitación sólo una vez, 

— no queremos pasar por los 
lugares peligrosos. 

Resumiendo: existe una ruta 
entre una habitación, hasta la 
salida, contando con que ya 
llevamos una serie de 
habitaciones visitadas si 

— existe otra habitación 
vecina de la primera, 

— hemos evitado las 
habitaciones peligrosas, 

— la otra habitación no está 
visitada y, por último, existe una 
ruta desde la otra habitación 
hasta la salida. 

Examine estas condiciones 
cuidadosamente antes de ver 
cómo se describe esto en Prolog: 

hay—ruta(Habitación, Salida, 
Visitadas) 

SI 

vecinas(Habítación,OtraHabi- 

tación) 

Y 

evitamos(HabitacionesPeligro- 

sas) 

Y 

no(miembro[OtraHabitación, 

abitacionesPeligrosas]) 

Y 

no(miembro[OtraHabitación, 

Visitadas]). 
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Turbo Prolog 
se organiza en 
forma de menús 
y ventanas de 
acceso intuitivo 
y rápido. 




El menú 

de Opciones nos 
permite controlar 
la apariencia 
del programa. 
Hay para todos 
los gustos. 


Y 

hay—ruta(OtraHabitación,Sali- 
da[OtraHabitaciónl Visitadas]). 

Si todas estas condiciones se 
cumplen, una detrás de otra, 
llegaremos a una salida si existe. 

En otros lenguajes, lo anterior 
se denomina pseudocódigo, y es 
algo que e! programador tiene 
que hacer como paso previo a la 
codificación. En Turbo Prolog, 
es ya el programa. En el Listado 
1 se da el programa completo 
según la sintaxis del Turbo. 


Prolog es un 
lenguaje inteligente, 
esto es, al 
ordenador se le 
explica lo que tiene 
que hacer en lugar 
de ordenárselo 
paso a paso 


Podemos distinguir claramente 
tres partes bien diferenciadas: 
dominios (domains) 
predicados (predicates) 
cláusulas (clauses) 

Una de las principales ventajas 
de Turbo Prolog es que se trata 
de un compilador, es decir, el 
programa se convierte en Código 
Máquina directamente ejecutable 
por el ordenador, sin la 
presencia del lenguaje. Por eso 
el Turbo necesita conocer cuánto 
ocupan las variables que 
intervienen en el programa. Ese 
es el significado de la parte de 
dominios que correspondería al 
bloque «type» en Pascal. 

La misma explicación tiene la 
parte «predicates». Es una zona 
de declaraciones que el 
compilador necesita para saber 
que le estamos hablando. 

La parte de «clauses», son los 
hechos conocidos por el 
programa, y las reglas mediante 
las cuales interaccionan y se 
modifican. 

Por ejemplo: 

galería(entrada,monstruos) es un 
hecho que el programa conoce. 



























































Significa que ambas 
habitaciones están relacionadas. 

Un ejemplo sencillo de regla 
es: 

vecina(X,Y) if galería(X,Y) 

vecina(X.Y) if galería(Y,X) 

Observe que esta regla está 
formada por dos cláusulas, que 
le explican al ordenador cuándo 
dos objetos de determinado tipo 
son vecinos, a saber, cuando 
haya una galería que va de uno 
a otro en cualquiera de los dos 
sentidos posibles. Así, 


vecina(entrada,monstruos) es 
cierto, mientras que 

vecina(cntrada,salida) es falso. 

A través de las cláusulas y 
reglas, el programa «razona» 
cíclicamente hasta que no es 
posible obtener nuevas 
conclusiones, o bien se encuentra 
una solución que satisface todas 
las restricciones expresadas por 
las reglas. 

Este programa, en forma de 
fichero EXE, ocupa 39 Kbytes. 
Funciona a la velocidad del 
rayo, y el código fuente es de 

I- 


A pesar de sus 
revolucionarias 
características, en 
Turbo Prolog puede 
desarrollarse 
cualquier aplicación 
tradicional de 
gestión 


tres a cinco veces menos extenso 
que si se hubiera escrito en 
Pascal (le animamos a 
comprobarlo). 

Observe que en ningún 
momento nosotros sabemos cuál 
es el camino de salida del 
laberinto, ni cómo encontrarlo. 
Nos hemos limitado a describirle 
a la máquina la situación y la 
lógica del mismo, y ella es la 
que encuentra cómo salir con el 
tesoro bajo el brazo. 

Podemos centrarnos ahora en 
una breve descripción de las 
facilidades que el entorno de 


desarrollo Turbo Prolog da al 
programador. En la línea 
habitual de Borland, todo se 
hace a través de menús y 
ventanas cuyo manejo es de 
cajón. Sin problemas. La 
velocidad de compilación es algo 
más lenta que en Turbo Pascal, 
por ejemplo, pero aun así es casi 
inmediata. 

El lenguaje abarca todas las 
diversas partes de un PC 
compatible: textos, gráficos, 
tratamiento de ficheros, ventanas 
programabas, menús, interfacc 
con otros lenguajes de Borland y 
ensamblador, etc. Cualquier 
aplicación, no sólo las de 
Inteligencia Artificial, se puede 
realizar en Turbo Prolog. El 
único problema es que los 
programas escritos en este 
lenguaje emplean un montón de 
memoria. Con 640 Kbytes no 
siempre vamos a ir sobrados. 

Este inconveniente ha sido 
resuelto por Borland en sus 
manuales, dando un ejemplo de 
cómo conseguir que el programa 
emplee memoria virtual. De esta 
forma, las bases de datos 
(cláusulas) pueden ocupar hasta 
100 MegaBytes. 

Por último, la información 
que proporciona Borland es 
excelente. Aparte de un muy 
bien construido manual, uno de 
los discos que se distribuyen con 
el lenguaje está lleno de 
ejemplos de todos los tipos, por 
no hablar de las respuestas a 
todos los ejercicios que el 
manual plantea al usuario. 
Además, se ha incluido un 
programa que se llama 
«GeoBase», una base de datos 
geográfica en lenguaje natural 
que muestra verdaderamente las 
posibilidades del Turbo Prolog. 

Resulta difícil encontrarle 
algún serio inconveniente a este 
paquete de desarrollo, a no ser 
que el Prolog es un lenguaje 
usado por muy poca gente... 
todavía. Pero de lo que no cabe 
duda es que se trata del lenguaje 
de ordenador del inmediato 
futuro, y todo el que desee 
colocarse a la vanguardia de los 
que desarrollan programas para 
PC haría bien introduciéndose 
en su fascinante mundo cuanto 
antes. 


Véase el menú 
de compilación. 
Podemos compilar 
a memoria, a ficheros 
tipo OBJ, o bien, 
crear un EXE 
autoejecutable. 




Turbo Prolog admite 
«projocts», es decir, 
una descripción 
de los diferentes 
módulos 
que componen 
un programa. 

La claridad 
y modularidad se 
facilitan al máximo. 
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Vuele a su quiosco antes de que se agote. 


VOLAR POR HOBBY 


ES ALGO MARAVILLOSO 




Ya ha despegado la primera 
revista mensual hecha para los que aman 
la aviación deportiva. 

Si sueña con poner aire por medio, 
entre usted y la tierra, empiece por VOLAR. 

Parapente, ultraligero, ala delta, 
aviación amateur, globo aerostático... 
cualquier sistema es bueno para VOLAR. 

Ahora, con la posibilidad de ganar 
un ultraligero. No deje que vuele 
de sus manos esta oportunidad. 

Atrape VOLAR en su quiosco 
antes de que se acabe. 


Si desea suscribirse, 
puede hacerlo 
telefónicamente: 

( 91 ) 734 65 00 










Si aún no la recibe en su domicilio 

SUSCRÍBASE AHORA 

Y AHÓRRESE 
MÁS DE 




¿sítese *' 1 




UNA suscripción 
que sólo 
le ofrece 
ventajas 

1 ? Recibir 
cómodamente 
en su domicilio, 
puntualmente 

cada mes, 

su revista 

2.° Ahorrarse un 25% de descuento 
en la compra de cada revista 
3.° Si se suscribe con tarjeta de crédito recibirá 
totalmente GRATIS un número más 

yattejjÉS 4? Al suscribirse usted entra 
a formar parte del CLUB DEL SUSCRIPTOR 

con un 15% de descuento en todos 
los artículos de HOBBY PRESS 


Para mayor comodidac 

suscríbase 
por teléfono 

( 91 ) 734 65 00 




























AVd. le costará realmente poco 
entender por qué Microbyte es la I 
empresa líder en software. 

La colección más completa de 
programas profesionalesyde juegos 


están a su disposición. 

Elija el programa más adecuado 
y obtenga el máximo 
rendimiento i 

a su sistema informático ! 

Lo que tal vez, nunca entienda! 
sea cómo los mejores 1 

programas del mundo son 
ta 1 óien los más económicos. 


D spjnemos de una amplia gama de títulos, 
solucionesy precios dentro de cada ana de las siguientes 
aplicaciones: 


- CONTABILIDAD 

- PAQUETES INTEGRADOS 

- GESTION COMERCIAL 

- HOJAS DE CALCULO 

- EDITORES DE TEXTO 

- BASES DE DATOS 

- GÉM 
CAD 

UTILIDADES 

- INSTRUCTORES... 


Desde . . 7.900 Ptas. * i. v. a. 

Programas desarrollados por prestigiosas empresas 

comoASHTON TATE, DIGITAL RESEARCH, SOFTRONICS, 
SEI, SPI, LOGIC CONTROL, AMSOFT, etc. 


GRUPO AMSTRAO ESPAÑA 


Si desea mayor información de nuestros programas 
solicite nuestro catálogo, hoja de producto o disco-demo. 


LO ÚNICO 
DIFÍCIL 

DE ENTENDER - 
DE NUESTROS 
PROGRAMAS, 
ES LO INCREÍBLE 
DE SUS PRECIOS 


Castellana, 178. I28046 MADRID. Tels. 442 54 33 / 442 54 44 / 442 58 «8 / 442 58 99 










